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Abstract 


Viscous, axisymmetric vortex rings are investigated numerically by solving the in- 
compressible Navier-Stokes equations using a spectral method designed for this type 
of flow. The results presented are axisymmetric, but the method is developed to be 
naturally extended to three dimensions. The spectral method relies on divergence- 
free basis functions. The basis functions are formed in spherical coordinates using 
Vector Spherical Harmonics in the angular directions, and Jacobi polynomials to- 
gether with a mapping in the radial direction. Simulations are performed of a single 
ring over a wide range of Reynolds numbers (Re = T/V), 0.001 < Re < 1000, and 
of two interacting rings. At large times, regardless of the early history of the vortex 
ring, it is observed that the flow approaches a Stokes solution that depends only on 
the total hydrodynamic impulse, which is conserved for all time. At small times, 
from an infinitely thin ring, the propagation speeds of vortex rings of varying Re 
are computed and comparisons are made with the asymptotic theory by Saifman. 
Our results are in agreement with the theory; furt hermor e, the error is found to be 
smaller than Saifman’s own estimate by a factor yJvt/R 2 (at least for Re — 0). The 
error also decreases with increasing Re at fixed core-to-ring radius ratio, and ap- 
pears to be independent of Re as Re — > oo. Following a single ring, with Re = 500, 
the vorticity contours indicate shedding of vorticity into the wake and a settling 
of an initially circular core to a more elliptical shape, similar to Norbury’s steady 
inviscid vortices. Finally, we consider the case of “leapfrogging” vortex rings with 
Re = 1000. The results show severe straining of the inner vortex core in the first 
pass and merging of the two cores during the second pass. 
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Chapter 1 
Introduction 


1.1 Review of Literature 

Vortex structures are often observed in complex flows, and as Helmholtz vortex 
laws dictate for unbounded flow, a vortex line must close upon itself. Topologi- 
cally, the most simple three-dimensional structure is a vortex ring. This problem 
has fascinated engineers, scientists, physicists and mathematicians alike for over 
one hundred years. Among the first theoretical studies were the works of Kelvin 
(Thomson 1867) and J.J. Thomson (1883) who investigated vortex rings as candi- 
dates for the fundamental structure of atoms. In an appendix in which Helmholtz’ 
paper is translated to English, Kelvin (1867) gave (without proof) the well known 
formula for the velocity of translation of a thin vortex ring having uniform vorticity 
(co/y ~ constant, where u is the vorticity and y is the distance from the axis of 
symmetry). The propagation speed has a logarithmic dependence on core radius 
such that the ring speed is finite for a finite core radius, and in the limit of zero 
core radius, the ring speed is infinite. This result was later verified by Hicks (1885) 
and Gray (1914). It was then extended to a viscous vortex ring by Tung and Ting 
(1967) and derived by different means by Saffman (1970) (where he discovered a 
numerical error in the results of Tung and Ting ). In the present work, Saffman’s 
expression is verified and extended to higher order numerically. Furthermore, the 
effect of Reynolds number is quantified. 
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A classical view of vortex rings is given in Lamb (1945), Prandtl & Tietjens 
(1934), Sommerfeld (1950) and Batchelor (1967). Based on inviscid theory, a circu- 
lar core of uniform vorticity travels under its own induced velocity as predicted by 
Kelvin. Furthermore, surrounding the vortex core and carried with it is a bubble 
of irrotational fluid which extends to the axis of symmetry unless the core-to-ring 
radius is smaller than about 0.01. The role which viscosity plays in the real flow 
was perhaps first observed by Reynolds (1876) where he states that . . they are 
continually adding to their bulk water taken up from that which surrounds them 
and with which their forward momentum has to be shared.” 

Vortex rings are experimentally generated by forcing a slug of fluid through a 
nozzle with a sharp lip (Maxworthy, 1977, Didden, 1979) or through a hole in a 
rigid wall (Glezer, 1981). Vorticity generated along the walls separates from the 
trailing edge and spirals into a vortex ring. By injecting either smoke into air, or 
dye into water at the lip, the ring is made visible through streaklines (1964 Mag- 
arvey & MacLatchy). This flow visualization technique became widely publicized 
through the huge smoke rings generated on the Camel cigarettes billboard in Times 
Square in New York. As pointed out by Magarvey &; MacLatchy (1964) and oth- 
ers (Maxworthy, 1972), interpretation of the dye requires caution since the flow is 
viscous and the vorticity diffuses much more quickly than the dye. For example, a 
streakline can show a spiral structure, while the corresponding vorticity distribution 
is a smooth Gaussian. 

A vortex ring is characterized by the ring radius, translational velocity, and the 
circulation. In an experiment, we must relate the parameters associated with the 
apparatus (the nozzle diameter, velocity history of the piston, and stroke length) 
to those of the ring. This subject is described by Didden (1979) where he exam- 
ines detailed velocity measurements of the flow at the nozzle exit and relates this 
to the final circulation. Furthermore, Didden shows that the starting process is 
strongly dependent on secondary effects such as the vorticity of opposite sign which 
is generated on the outside of the nozzle. 

Once the laminar sheet of vorticity leaves the nozzle, and spirals into a vortex 
ring, several situations are possible depending on the Reynolds number (Maxworthy, 
1972). For Reynolds numbers less than around 600 (based on initial translation 
velocity and maximum bubble diameter), a stable, laminar vortex results. For 
Reynolds numbers greater than 600, azimuthal waves develop, as first demonstrated 
by Ivrutzsch (1939) and later observed by Widnall & Sullivan (1973), Liess & Didden 
(1976), and Maxworthy (1972, 1977) and numerically by Knio & Ghoniem (1988) 
with an inviscid vortex method. If the Reynolds number is greater than around 
1000, the waves grow to amplitude where they break, resulting in turbulent flow. 
After some period of time a new stable ring emerges. This process was occasionally 
found to repeat itself as implied by Krutzsch, and then later reported by Brasseur 
(1985). Among the unanswered questions are the effects of viscosity and swirl on the 
instabilities (Saffman, 1978). Fully turbulent flow was investigated by Ivovasznay, 
Fujita, Lee (1973) and later by Glezer (1981), who fully exploited the similarity of 
the flow resulting from Reynolds number invariance. 
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Three dimensional instabilities and the resulting turbulent vortex rings de- 
scribed above are beyond the scope of the studies considered here, as the results we 
will present are for axisymmetric rings. The numerical method, however, is natu- 
rally extended to three dimensions and will enable three dimensional effects to be 
studied at moderate Reynolds numbers in future work. 

Because of the inherent unsteadiness of vortex rings, both temporally and spa- 
tially, quantitative measurement of the time- dependent vorticity and velocity fields 
has presented challenges to experimentalists. Widnall &: Sullivan (1973) presented 
the first measurements of vorticity distributions at a single time in the evolution. 
Similar measurements were also shown by Maxworthy (1977). Other experimental 
results by Sallet Sz Widmayer (1974) give the time dependent ring velocity, ring 
diameter, core diameter and circulation. Maxworthy (1972) presents a model for 
the behavior of viscous stable rings. He proposes that, in contrast to the classical 
models, the vorticity is distributed throughout the bubble of fluid carried with the 
vortex core, and furthermore, the bubble shape grows in a self-similar fashion. The 
external irrotational fluid flows past the bubble, and through viscous diffusion a 
thin layer mixes with the vorticity in the bubble. The total pressure in the thin 
layer is reduced, and fluid is therefore entrained into the rear of the bubble. In order 
for the model to be dynamically consistent, he argues that vorticity is continually 
being shed into the wake. In our simulations, we show that there is indeed a wake 
of weak vorticity continually being shed. 

It is natural to look for steady inviscid solutions (in the frame of reference 
traveling with the ring). A very early result by Hill (1894) gave such a solution 
with uniform vorticity (w/y = constant) distributed in a sphere, known as Hill’s 
spherical vortex. The existence of steady thin rings was proved by Fraenkel (1972), 
and Norbury (1973) studied rings of finite size. Norbury’s family of steady rings 
range from thin rings at one end to Hill’s spherical vortex at the other. For a viscous 
vortex, it is not possible to have a steady solution (because the energy decays). Our 
numerical viscous solutions, however, show a quasi-steady behavior (a nearly self- 
similar shape in a translating frame) with vorticity distributions reminiscent of 
Norbury’s rings. 

As the vortex ring propagates, fluid is entrained and the bubble of vorticity' 
continues to grow. Meanwhile, vorticity is diffusing across the axis of symmetry 
and canceling with vorticity of the opposite sign, so that in the limit of large-time, 
the circulation goes to zero. The circulation is one measure of the Reynolds num- 
ber. It follows that the Reynolds number is decreasing in time and asymptotically 
approaches zero. 

For sufficiently large time, the convective term is negligible and we are left 
with the Stokes equations. The most slowly decaying solution to these equations 
is what is often termed the Stokes solution. This is an analytic solution first de- 
rived by Phillips (1956), which he points out is the final period of decay for any 
initial vorticity distribution in an infinite domain where the flow at infinity is at 
rest. Further studies of this regime were made by Kambe and Oshima (1975) where 
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they experimentally verify the predicted *” 3 / 2 decay of velocity and claim to have 
extended the large time solution to second order through the method of matched 
asymptotic expansions. In the present work, it was shown numerically that for large 
times, the vorticity field returns to the drifting Stokes solution and that the only 
memory of the initial conditions that remains is the impulse and kinematic viscosity. 
Furthermore, we have numerically determined the proportionality constant relat- 
ing the dimensionless propagation speed to < -3 / 2 . This constant was later found 
analytically by Rott Sz Cantwell (1987) and agrees with the numerical result to 4 
significant digits, indicating that the numerical solution is very accurate. 

In this work we show results for the propagation speed, shedding, and inter- 
actions, and ultimately the decay of axisymmetric viscous vortex rings from initial 
Reynolds numbers as high as 1000. A very accurate numerical method was devel- 
oped for three-dimensional flows, and tested for axisymmetric rings. It was shown 
that the impulse, which is analytically conserved, is constant during a simulation 
to within 2% for even the most difficult case, and more typically to within fractions 
of a percent. Therefore, these results may be useful as a database to compare with 
other numerical methods under development such as discrete vortex methods which 
include the effects of viscosity. 

With a numerical method, we are able to obtain any information from the 
flow, making this a very powerful tool (provided that the solutions are correct and 
accurate). 


1.2 Numerical Method 


The complete equations describing the physics are the incompressible Navier- 
Stokes equations. Because the Reynolds number is limited by the size of the smallest 
scale of the flow which can be resolved, it is desirable to use a numerical approach 
which is highly accurate for a given number of degrees of freedom. When properly 
formulated, spectral methods are known to have exponential convergence with re- 
spect to the number of degrees of freedom and to allow an excellent resolution of 
small scales. The objective, therefore, is to develop an efficient spectral method 
applicable to vortex ring calculations in an unbounded domain with a quiescent far 
field. 

Two approaches were considered. The first approach, suggested by Leonard 
(1981), uses divergence-free basis functions tailored to inherently satisfy the bound- 
ary conditions of the problem. Because of this, the pressure does not appear in the 
final equations and the incompressibility condition allows the number of unknown 
velocity components to be reduced to two. The second approach considered uses 
a complete set of basis functions and enforces continuity (through the expansion 
coefficients) at each time step. In this case, there are four unknowns; three velocity 
components and the pressure. The first approach, although more elegant, relies on 
finding an appropriate divergence-free set of basis functions, which can be difficult. 
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The appropriate set of basis functions is strongly affected by the choice of coor- 
dinate system. Cartesian coordinates are mathematically the most simple to work 
with and therefore, the obvious first case to consider. An interesting approach for 
computing an infinite domain is to first map the domain [- 00 , 00 ] to [-1, 1] using 
a tangent mapping and then to apply Fourier series expansions (Cain’s mapping, 
Cain et al, 1984). With the mapping, an infinite domain can be approximated with 
a periodic expansion since the image of the non-zero vorticity is infinitely far away 
from the flow of interest. An advantage is that Fourier series expansions can be ap- 
plied, allowing FFT’s (fast Fourier transforms) to be used, reducing the operation 
count from 0(N 2 ) to 0(N log N ) . Cain’s mapping has been successfully imple- 
mented on several occasions in one direction where one or both of the remaining 
two directions are assumed to be periodic (Cain et al, 1984, Lowery, 1986). This 
approach results in a bandwidth of 5 for each direction for the mass matrix as well 
as a Poisson equation with bandwidth of 5 in each direction, each of which must be 
inverted to advance one time step. Because the domain of interest is infinite in all 
directions, the mapping would be applied three times, resulting in a fully coupled 
system of equations which would be extremely costly to invert. 

The second coordinate system considered is spherical polar. The advantages 
here are that only one direction is infinite, and by holding the azimuthal direction, 
<{>, fixed we can conveniently represent axisymmetric flow with only two dimensions. 
With only two dimensions we are able to study more cases. Furthermore, by com- 
puting exactly axisymmetric flow, we can compute the instabilities from this state 
more precisely. Another advantage here is that a set of functions which comprise a 
complete set for a vector field on the surface of a sphere are known, and furthermore 
their derivative relations are relatively simple. These are known as vector spherical 
harmonics (VSH, Hill 1953). With VSH, it is relatively straightforward to extract 
the divergence-free set of functions. Furthermore, because VSH are orthogonal, 
the angular directions completely decouple in the linear terms of the Navier-Stokes 
equations. To define vector functions for a divergence-free field in a volume, one 
must then choose appropriate radial functions. This is the approach taken. 

The radial direction is handled by first mapping the semi-infinite domain, 

0 < r < 00 , to a finite domain, 0 < £ < 1 , then expanding the velocity and vor- 
ticity in terms of Jacobi polynomials. Care is taken to ensure that in the far field, 
the velocity decays as 1/r 3 . Exponential decay in vorticity (occurring when the 
vorticity is initially zero outside a finite region) can be approximated, but individ- 
ually the basis functions decay algebraically. The resulting matrices in the radial 
direction are banded, positive-definite and symmetric, with semi-bandwidths of 3 
and 5 for the mass and viscous matrices, respectively. In addition, the functions are 
chosen such that the solution is smooth at the origin where there is a coordinate 
singularity. 

The divergence-free method developed is similar to those of Leonard et al. 
(1982) for pipe flow, Moser et al. (1983) for channel flow, and Spalart (1986) for 
boundary layers. Special considerations which arise in applying this approach to 
the present problem are the unbounded domain, and the more complex geometry 
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of the flow structure. Because of these complexities, two of the three directions 
do not allow the use of Fast Fourier Transforms in transforming between real and 
wave-number space. 

The method is particularly well suited for flows where the activity is concen- 
trated in a spherical domain. Vortex rings are representative of an important class 
of flows which are produced by a time-dependent point force (Cantwell, 1987). A 
delta-function forcing, for example, produces a vortex ring. The numerical method 
developed here for this particular flow could be extended to other members of this 
class, produced by more complex forcings. 


1.3 Objectives 

The objectives of this work, divided into numerics and fluid mechanics, are 
outlined below. 


Objectives: Numerics 

(i) To develop an accurate numerical method to study viscous vortex rings in 
three- dimensions . 

(ii) To verify the method by implementing the axisymmetric case. 

Objectives: Fluid Mechanics 

(i) To study the large time behavior of axisymmetric rings; in particular, how does 
the asymptotic solution of the Navier-Stokes equations depend on the initial 
conditions. 

(ii) To study the early time behavior when the ring is very thin and compare the 
propagation speed with the theory by Saffman. 

(Hi) To observe intermediate time development of vortex rings such as the defor- 
mation of the core, and shedding of vorticity into the wake. 

(iv) To provide a database of an accurate solution of the Navier-Stokes equations 
representing vortex rings in unbounded domains. 

(v) To observe leapfrogging of vortex rings. 


Chapter 2 

Design of the Numerical Method 


In this chapter a spectral method is developed which solves the Navier-Stokes 
equations in an unbounded domain with a quiescent far field. There are no exter- 
nal forces acting on the flow, however including them would be a straightforward 
process. Using a weighted residual method, the momentum equation is projected 
onto specified weight functions. The flow field is represented as a summation of 
spatially-dependent functions, which form the basis for the solution space, multi- 
plied by time-dependent coefficients. 

In the method developed here, the weight functions and basis functions are the 
same (i.e. Galerkin approximation, cf., Gottlieb and Orszag, 1977). These functions 
are built using Vector Spherical Harmonics (VSH) for the angular dependence and 
an algebraic mapping together with Jacobi polynomials for the radial dependence. 
Using VSH, the set of basis functions is complete, and the divergence-free subset 
is extracted. Each basis function individually satisfies continuity, therefore, the 
continuity equation is implicitly satisfied in the formulation. 

In the first section, we manipulate the conservation equations; first by non- 
dimensionalizing, then by transforming to an expanding and translating coordinate 
system. The transformation enables vortex rings to be computed over long time 
periods while having a minimum impact on the numerical algorithm. Next, we apply 
the weighted residual procedure. By using a Galerkin method with divergence-free 
basis functions, it is shown that the pressure drops from the equation. Finally, the 
basis functions are developed and substituted into the governing equations, leading 
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to a set of coupled equations which are solved numerically. With this procedure, 
the spatial dependence is accounted for, and the Navier-Stokes equations reduce to 
a set of coupled ordinary differential equations which are integrated in time from 
an initial flow field. 


2.1 Governing Equations 


Using the invariant quantities, impulse (I/p) and kinematic viscosity (z/), the 
Navier-Stokes equations are first expressed in dimensionless form (identified by ( )). 
Next, a transformation is found, such that the boundary conditions at infinity are 
unchanged and the changes to the working equations are minimal. Because of this, 
the equations are cast in a hybrid coordinate system; the independent variables 
are referred to moving coordinates but the pressure and velocity are referred to 
non-moving coordinates. The computational variables are identified by ( ). 


2.1.1 Physical and Non-dimensional Equations 

The incompressible Navier-Stokes equations express conservation of mass, 


V * u = 0 


( 2 . 1 . 1 ) 


and conservation of momentum, 


du 

Hi 


+ (u- V)u = — Vp + z/V 2 u 
P 


( 2 . 1 . 2 ) 


where u is the velocity, p is the pressure, p is the density, and v is the kinematic 
viscosity. Boldface quantities denote vectors. The domain of interest is infinite, 
with the vorticity confined to a finite region. It can be shown that, in this instance, 
the velocity decays like 1/r 3 in the far field. 

With the vorticity defined as to = V x u and the vector identity, 


u-Vu = V(u-u/2)-uxw (2.1.3) 

equation (2.1.2), can be written as 

du 9 

— -f V<3> — z/V“ u = u x w, (2.1.4) 

where ~ p/p -f- u • u/2 is the total pressure. 



2,1 Governing Equations 


9 


The dimensions of the impulse (//p), and the kinematic viscosity ( z/), are L 4 JT 
and L 2 /T , respectively. By inspection, a length scale is formed, (J/p)^ 2 /^ 1 / 2 , and 
a time scale, (//p) Jv 2 . With this, the dimensionless variables are 


v 


1/2 


X = X 


( r/p ) 1 * 2 

2 


t = t 


V 


I/p 


u = u 


(J/p ) 1/2 

1 / 3/2 


///> 


u; = cj 


i / 2 


__ , i/p 

p=p/p-t 


V'' 


(2.1.5) 


Substituting equation (2.1.5) into equation (2.1.4) gives the dimensionless momen- 
tum equation, 

~ + V$ - V 2 u = uxaJ, (2.1.6) 

where <&=p- f-u 2 /2. Continuity becomes 


V • u = 0. 


(2.1.7) 


2.1.2 Transformed Equations 

Since the domain of interest is infinite and we are studying vortex rings that 
are diffusing and translating in time, it is helpful to express the governing equations 
in a coordinate system which is also expanding and translating. In this way, we are 
able to efficiently compute flows from an initial state, such as a thin ring at high 
Reynolds number, for long periods of time. 

A transformation is found which leaves the boundary conditions invariant and 
has a minimal impact on the algorithm. It is a hybrid transformation, where the ve- 
locity and pressure are referred to fixed coordinates while the independent variables 
are referred to a translating reference frame, given by 

x = (x — 
t = In 7, 

Here, X is the displacement of the center of the coordinate system as a function of 
time. The expansion is prescribed proportional to t ~ because this is the variation 
of the viscous length scale. However, the origin of t is arbitrary and will be chosen 
carefully in each case. Similarly, X is left unspecified for now and will be adjusted 
to minimize the time dependence of the solution in the transformed frame. Note 
that the reference frame moving with X does not have to be inertial. 


X)?" 1 / 2 , 


u = u t ly/2 , 
U =LUt, 
p=pt. 


( 2 . 1 . 8 ) 
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Appendix A shows the details of the transformation. The final equations in 
the new coordinates express conservation of momentum, 

~-fV$-V 2 u = u mod x u (2.1.9) 

and conservation of mass, 

V • u = 0. (2.1.10) 

Equation (2.1.9) has the same form as equation (2.1.4) except that the pressure and 
the non-linear terms are modified. They are given by 

Umod = u - -x - U 

$ = p + u • u/2 — - x • u — U * u (2.1.11) 

U = < 1 / 2 U =? 1 / 2 

dt 

For reasons to be described shortly, the pressure does not appear in the final 
equations, so that the only effect on the algorithm is due to the modified velocity in 
the non-linear term; u becomes \i mod each time the non-linear term is computed 
(see Chapter 3 for more detail). To simplify the notation, we will present the 
solution procedure of equation (2.1.4), even though equation (2.1.9) is solved in 
practice. The differences are minor: v becomes 1 and the velocity in the convection 
term is replaced by u m0( * . 


2.2 Weighted Residual Method 

In a weighted residual method, the governing equations are multiplied by a set 
of weight functions, j , and integrated over the domain of interest. This gives 

dn T T ^ 0 

< — > -f < > -v < V 2 u, j > = < u xw,^- > (2.2.1) 

where < a, b >, an inner product, denotes the integral of the dot product of two 
vectors, a and b, over the volume. All of the quantities will decay fast enough at 
large distances for the integrals over the infinite domain to be finite. 

By specifying certain constraints on the weight functions, j , the pressure term 
will drop from the governing equations, greatly simplifying the numerical method. 
Using the product rule and Green’s Theorem, the second term in equation (2.2.1) 
becomes 

< Y$, >= [ • n )dS - [ $(' V • ^j)dV. 

Js Jv 


( 2 . 2 . 2 ) 
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In Leonards’ formulation (1982), the domain was bounded by pipe walls. The 
normal component of the basis functions is therefore zero at the boundaries, and 
the wall boundaries don’t contribute to the first term in equation (2.2.2). The 
streamwise direction was periodic, and therefore had no contribution, hence the 
first term is zero. Since our domain is infinite, extra care is needed. The first term 
is zero when the integrand, $(T r J - • n), decays fast enough such that the limit of 
the integral as S becomes infinitely large is zero. Since decays like 1/r 2 and 
S&j decays like 1/r 3 , this is clearly the case. The second term is zero for weight 
functions which are divergence-free ( V- SS/j =0). The weight functions, therefore, 
are chosen such that they satisfy continuity and the boundary conditions, leading 
to the so called weak formulation due to Leray (1934): 

du 9 

< — , Wj > -v < V 2 u, >=< u x w, > . (2.2.3) 

For the Stokes equations, it can be shown (Moser et al, 1984) that the solution of 
the strong form (eqn. 2.1.4) is also a solution of the weak form (eqn. 2.2.2) and 
that the solution of the weak form is unique. Therefore, it is valid to solve the weak 
form of the equations, and a solution of the strong form will be found (if it exists). 
It is also true that the weak form of the equations may have a solution when the 
strong form does not. But, there are no firm examples of such a behavior with the 
incompressible Navier-Stokes equations. 

The next step in the formulation is to expand the velocity and vorticity in 
terms of unknown time-dependent coefficients, a.j(t ), multiplying known spatial- 
dependent basis functions, ^j(x): 

u = a i( 4 ) ( 2 - 2 - 4 ) 

3 

where each basis function is divergence-free. Equation (2.2.4) is substituted into 
(2.2.3), the time-dependence is brought outside of the integrals, and inside the 
integral are expressions involving products of weight functions. In the integrand, 
there are two indices (j and j' for example) such that each integral is an element 
of a matrix. Furthermore, the integrals (or matrix elements) are dependent only 
on the spatial functions which are known a priori, and therefore only need to be 
computed once. The matrix multiplying the time-dependent term will be called the 
mass matrix and that originating from the diffusion term will be referred to as the 
viscous matrix. 

If we constrain the basis functions and weight functions to span the same space 
(i.e. a Galerkin method), several benefits are realized. It can be shown that the 
solution gives a minimum in the L 2 error in the vorticity. Furthermore, the conver- 
gence properties of the numerical approximation to the differential equations are as 
good as the convergence of the series expansion to typical solutions (approximation 
theory) (Moser et al. f 1984). Also, when the weight functions and basis functions 
are the same, the mass and viscous matrices are positive-definite and symmetric, 
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Figure 2.1. Schematic of a vortex ring is spherical coordinates. The 
domain is infinite, where 0 < r < oo, 0 < 0 < 7r, and 
0 < <j) < 2tt. The cross section indicates lines of constant 
vorticity. 


leading to a more efficient numerical method. This approach, used by Spalart 
(1986) to simulate turbulent boundary layers, was also used here. Choosing basis 
functions which are appropriate for computing vortex rings and their interactions 
in an unbounded domain is the subject of the remainder of the Chapter. 


2.3 Three-Dimensional Basis Functions 


The basis functions must not only be complete for a given set of endpoint con- 
ditions and divergence-free, they should also lead to an efficient numerical method. 
One measure of the numerical efficiency is the sparseness and bandedness of the 
matrices resulting from the linear terms (on the left hand side of eqn. 2.2.3). Ide- 
ally, the basis functions would be orthogonal (bandwidth of one) in all three spatial 
coordinates. In practice, this is probably impossible to achieve simply by a judicious 
choice of functions. 

Our problem is formulated in spherical polar coordinates (see Fig. 2.1) which 
offers several advantages. Vector spherical harmonics (VSH, cf., Hill, 1953), can be 
used as basis functions in the angular directions. They span the space of vector 
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fields on the surface of a sphere. A complete set of functions in a volume is gen- 
erated by multiplying the VSH by appropriate radial functions. Furthermore, the 
divergence-free subspace can be easily extracted using the properties of the VSH 
(Appendix C). Finally, because of the orthogonality of VSH, the different angular 
modes are completely decoupled in the linear terms of the Navier-Stokes equations. 
With these, the only remaining task is to choose the radial functions. 

The radial direction is mapped from the semi-infinite domain, 0 < r < oo , to 
a finite domain, 0 < £ < 1 , then the velocity and vorticity are expanded in terms 
of Jacobi polynomials. Care is taken such that in the far field, the velocity decays 
as 1/r 3 . Exponential decay in vorticity can be approximated, but individually the 
basis functions decay algebraically. In addition, the functions must satisfy special 
conditions at the origin where there is a coordinate singularity. 


2.3.1 Vector Spherical Harmonics 

The coordinate system plays a vital role in the method. With this, the vector 
field (velocity or vorticity) is projected onto each of the coordinate directions and 
each component is expanded in terms of a family of complete polynomials. The co- 
ordinate system determines the boundary conditions in each direction which in turn 
determines the appropriate functions to use. Furthermore, the higher-resolution re- 
gion of the approximating functions should coincide with the large gradients in the 
flow field. Finally, it is useful if a subset of the basis functions is consistent with the 
physics of the flow (i.e. by removing one coordinate the 2D or axisymmetric flow is 
recovered exactly). 

For this problem, we chose spherical polar coordinates (see Fig. 1). By holding 
4> constant, the three-dimensional problem reduces exactly to the axisymmetric 
problem. This will be important for future studies of azimuthal instabilities and is 
a definite advantage over Cartesian coordinates. In addition, it is desirable that only 
one direction (radial) be infinite since special care is needed in an infinite interval, 
making this an advantage over cylindrical coordinates. Finally, the availability of 
VSH and their properties enables a complete, divergence-free set of basis functions 
to be defined analytically without excessive complexity. Furthermore, with VSH the 
matrices from the time-dependent and viscous terms in the Navier-Stokes equations 
are diagonal in the polar and azimuthal directions. In this section, these properties 
are illustrated and the basis functions are developed. 

Since the vector spherical harmonics, X^ m , V* m , and W^ m , form a complete 
set on a sphere (Blatt & Weisskopf, 1952), an arbitrary, unsteady, three-dimensional 
vector field can be represented by 

u M,<M) = Y, { F U m (r,t)Xtrn(0,<f>) 

(2.3.1) 

+ F 2 tm (r,t)Vc m (9,<l>) + F 3tm (r,t)W £m (0,<f>)}. 

The scalar functions, F llrn , F 2lrn , and F 3(rn , are arbitrary radial functions which 
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vary in time. In numerical solutions, the series is truncated with 1 < £ < L and 
0 < | m\ < £ where the limit, X, is set according to the complexity of the flow field 
(i.e. the ratio of length scales which depends on the Reynolds number). 

The divergence-free subspace is extracted from the complete space by substitut- 
ing equation (2.3.1) into the continuity equation, and applying VSH properties (see 
Appendix B). This gives a velocity expansion requiring only two scalar functions, 
*Tm( r > t ) and ■FjJ n (r,i), instead of three: 


u M,<M) = E + [^(r.OXfcnM} • (2.3.2) 

t,m 


The functions denoted by -f and — are related to those denoted by 1, 2, and 3 as 
follows: 


Fi, 



F*, 

F* ir 




~k , 


dFL e + 

dr 




dr 


, + *) p+ 

« r lm 


(2.3.3) 


where k x = ^(^i) 1 ^’ an(i ^ Tlie + and - notation is that 

used by Leonard and Wray (1982). This procedure amounts to using a vector 
potential. That is, since a divergence-free vector can be written as the curl of 
another vector, the basis functions in equation (2.3.2) can be expressed as V x T~ 
and V x Y + , where Y~ and Y + are the vector potentials. In two dimensions, the 
vector potential simply reduces to the stream function. 

Until this point, the functions denoted by F included both the spatial varia- 
tion in the radial direction and the time- dependence. These two dependences are 
now separated by expanding the radial functions in terms of polynomials. If these 
are properly chosen (solutions of a singular Sturm-Liouville problem) the expan- 
sion is complete and able to represent arbitrary behavior at the endpoints without 
exhibiting Gibbs phenomena (Gottlieb & Orszag, 1977). The particular choice of 
radial functions is described in the next section, but for the moment they are rep- 
resented by f~e(r) and /^(r) where n is the third index in our expansion. Note 
that these functions do not depend on the index m (thanks to some properties of 
the VSH) which simplified the method significantly. The time-dependence is ex- 
pressed by unknown time-dependent coefficients, and The radial 

and time-dependence are then separated: 


N(0 

= E a ntm 

71 = 0 

N(() 

F L( r ,t) = E a t(m( t )fnt( r ) 
n=0 


(2.3.4) 
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The expansion for the velocity becomes 


uM,?M)= E { a ne m (t)fni( r )X lm (6,t) + a + em (t)V x{f+(r)X tm (ej)]} . 

£,n,m 


(2.3.5) 

where 1 < £ < T, 0 < n < IV (^), and 0 < m < i. Furthermore, N(£) = A r (l)— £+1 
and N(l) = N (see section 3.2). As discussed in the previous section, the weight 
functions and basis functions are the same. Therefore, the weight functions are 
simply, 


\Lr~ 
n' I'm' 

\3? + 

* rit'm' 


~ f n’ m' , 

= V x (/^X*/ m >). 


(2.3.6) 


We are now in a position to derive the final equations. Note that the radial 
functions are still arbitrary. The resulting equations will involve integrals of radial 
functions, and these functions will be chosen so that as few of these integrals as 
possible are nonzero. 

Substituting equation (2.3.5) into equation (2.2.3), and using the orthogonality 
of VSH, we can show that the angular modes are orthogonal in the mass and viscous 
term (all the integrals are zero unless t - 1' In practice, this means that 
the two angular directions are completely decoupled for the linear terms in the 
Navier-Stokes equations. The result is two sets of ordinary differential equations 
for each of the indices, l and m , with dependent variables a~^ m and . In 
summation notation they read, 


da e 

A-n'vfS) ^ V ^n’JS) a nlTn U X f ix' l^lm > (2.3.7) 

da + 

f 1 ~ <im = < U X07,V X (/J,Xj m ) > (2.3.8) 

where XJ m is the complex conjugate of X/ m . The matrix elements of A nn > and 
B n n r , in terms of the radial basis functions, are given by 


pOO 

A n'n( e )= / fn(fn'e r2dr i 

J 0 

poo 

B~, n {i)= L t (f- e )f-, e r 2 dr, 

Jo 

p oo 

= / [f2ntf2 n , e + /3„</3„,J r 2 dr, 

Jo 

poo 

— / [Lt+l(f2 nt )f2 n , t +^-l(/ 3 n< )/3„#J T 2 dr. 

%/ 0 


(2.3.9) 


They are real, independent of m , and symmetric. This is so because the Laplacian 
operator, Le(f) = /, (see VSH, Appendix C) is self-adjoint with 
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respect to the measure r 2 dr . Furthermore, A n > n is positive definite and B n > n is 
negative definite. The definitions of f 2 nt and f 3nt , in terms of a single function, 
, follow from equation (2.3.3): 


/ 2 „«( r ) = i 


/ e > 

\ 1/2 

' d f 

\ + 1 , 


dr r 



(2.3.10) 


= i 


( l± 1 V /2 \d U + 1) 

\ 21 -f 1 ) dr r 



(2.3.11) 


Once the radial basis functions (f~( and /^) have been chosen, the matrix elements 
are evaluated. In the next section, these radial functions are chosen judiciously to 
minimize the radial coupling while still satisfying the boundary conditions. 


2.3.2 Radial Functions 

There are many constraints driving the choice of the radial functions. They 
must form a complete set and satisfy the boundary conditions. At the coordinate 
singularity, r = 0 , the basis functions must be smooth ( C Q 0 ), implying in particular 
that they have the correct parity. The basis functions should be suitable for ap- 
proximating typical functions, in other words, the collocation points should cluster 
in regions of large gradients. In order for three-dimensional flows to be studied, it 
is important that the number of operations per time-step be kept to a minimum. 
This is dependent primarily on the matrix structures (i.e. diagonal is optimal) and 
the availability of fast transforms (i.e. as FFT’s). Because these constraints are 
not applied serially, rather, they are applied in parallel, it is easier to first state the 
result and then evaluate the merits. 

An algebraic mapping is used, given by 


r 2 „ 


rU 

i-e 1 


combined with expansions of the form, 


(2.3.12) 


/»< = C s (1 - 0 (W)/ 2 t e/2 GUO, (2-3.13) 

where G e n are Jacobi polynomials, defined in Appendix C, and -f and — functions 
are the same (and called simply f n e). Equation (2.3.12) maps the semi-infinite 
domain, 0 < r < oo, to the finite domain 0 < £ < 1. The mapping could be 
specified in terms of r 2 because the parity of each radial function is known. This 
mapping (eqn. 2.3.12) has the advantage of alleviating the unnecessary clustering 
of collocation points near the origin of the spherical coordinates. The constant, 7 q , 
is a free parameter, chosen to minimize the error in the vorticity for a given initial 
condition. When the resolution is marginal, it is recommended that ?q be varied 
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by ±10% and the results compared to assure that the solution is not sensitive to 
this parameter. 

Completeness is guaranteed by choosing a set of polynomials which are solu- 
tions of a Sturm- Liouville problem (Gottlieb & Orszag, 1977). Furthermore, if the 
eigenfunctions are solutions of a singular Sturm-Liouville problem, convergence is 
faster than any power of N (exponential) when approximating an infinitely differ- 
entiable function (Coo) with arbitrary boundary conditions. Laguerre polynomials, 
defined in a semi-infinite domain, are a possible choice. They are solutions of a 
singular Sturm-Liouville problem, although their convergence to a function of given 
complexity requires roughly twice as many polynomials as Legendre and Chebychev 
polynomials (Gottlieb & Orszag, pg. 42). Therefore, it is better to map the radial 
coordinate to a finite domain and then, in the mapped domain, expand the solution 
in terms of Jacobi polynomials (similar to Legendre and Chebychev). 

The far-field is the only boundary in the problem. The vorticity is assumed to be 
essentially confined to a finite domain, hence, in the far-field it decays exponentially. 
This corresponds to a 1/r 3 decay in the velocity (Batchelor, 1967). This behavior 
is enforced by the factor (1 — £) p , through the exponent, p. To find the correct p, 
we first consider the ± modes. The function, f n i , is the radial dependence of the 
vector potential. Therefore, to determine the correct behavior of f n t at infinity, 
consider the Poisson equation relating the vector potential to the vorticity, 

V 2 (fni(r ) X* m (0, c/>)) = -u;+ (2.3.14) 

Using VSH properties for the Laplacian, and assuming that the vorticity is of the 
form, uj ~ r q X^ m (^, <f>), where q is a large negative exponent (theoretically infinite), 
equation (2.3.14) becomes 


Lt(fnt) — — 


d 


r dr 


- 2 1 


L 

dr 


(r l+1 C) 


= 0{r«) 


which has a solution of the form, 


(2.3.15) 


fnt = c l + C 2 / + 0(r q+2 ) (2.3.16) 


where C\ and C 2 are constants, determined by the boundary conditions. Since the 
solution is bounded at infinity, <7 2 is zero. Therefore, the leading term at infinity 
is Cir“ ( * +1 ). At a large radius, (1 - £) ~ r“ 2 , £ ~ 1, and G £ n ~ 1, therefore, for 
the correct decay 


(* + l> 


(2.3.17) 


With this choice, each of the velocity basis functions decays like 1 /r 3 or faster. The 
vorticity basis functions also decay algebraically, like 1/r 5 or faster, and collectively 
they will approximate exponential decay. A similar argument for the — modes 
shows that the same factor, (1 — £)U+i)/ 2 ^ mus j. multiply the Jacobi polynomials 
in order to satisfy the far field boundary conditions. 


2.3 Three-Dimensional Basis Functions 


IS 


At the origin, we must concern ourselves with the coordinate singularity asso- 
ciated with spherical polar coordinates. In spherical coordinates it is possible to 
specify the radial dependence of a function in such a way that it is a smooth func- 
tion of r , 6 , and (f> , but not a smooth function of x , y , and 2 . This occurs because 
the metric coefficients of the mapping tend to infinity. Therefore, for smoothness, 
certain constraints are imposed on the radial basis functions. To illustrate this 
point, consider a simple example. Suppose we have a function, g(r 7 #), in polar 
coordinates, which is a product: 


g(r 7 0) — R(r) 0(0) (2.3.18) 

Now let R — 1 and 0 = cos#. It is clear that this function is discontinuous by 
plotting it along the x axis: if x < 0, then g — 1 , and if x > 0, then g = -1 . Now 
choose R — r , and the function, g , is smooth. 

The appropriate constraints on the radial functions when using vector spherical 
harmonics, derived by Spalart (1988) and summarized in Appendix D, are given by 

= r ‘ /x<m(r 2 ) 

h lm (r) = r l+1 f vtm (r 2 ) (2.3.19) 


These are found by requiring that the vector function be infinitely differentiable 
near the origin and counting the associated degrees of freedom and constraints, 
thereby proving necessary and sufficient constraints shown in equation (2.3.19). 
Here the functions fxtm , fvtm , and fwim are themselves infinitely differentiable 
and bounded for [0, 00 ]. Note that (2.3.19) dictates both the parity of f \ , / 2 , and 
/ 3 and their rate of decay as r — ► 0 (fast decay for large £). 

This analysis is reinforced by the earlier results derived by Cantwell (private 
communication) where the self-similar solutions of the three-dimensional Stokes 
equations for the vector vorticity, ^ = V 2 u ; (in spherical polar coordinates), are 
derived. The angular dependence is described by vector spherical harmonics, while 
the radial dependence involves associated Laguerre functions (Laguerre polynomials 
multiplied by decaying exponentials). Cantwell’s radial functions give the following 
limiting behavior, as r — » 0, for each of the components of vector potential, T, 
velocity, and vorticity: 


z T 

h 

i<p 


Y“ 


r 

r 

r 


e-i 

e-i 

e-i 


y+ 

0 


u 


U + U) u + 

t — 1 £ — 1 

r r U 

r t - 1 r t - 1 r t 

r e~i r e-i r i 


The general result (equation 2.3.19) is in agreement with the behavior of the 
Stokes solutions. In practice, the constraints at the origin are imposed by including 
a factor in the radial basis functions, f n t , and choosing an algebraic mapping 
in terms of r 2 . In doing this, the parity requirements are also satisfied. 
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In summary, the correct behavior in the far field and near the origin is repre- 
sented with the algebraic mapping of equation (2.3.12) and the factors, and 
(1 - p ( * +1)/2 in equation (2.3.13). This form has the drawback that the radial 
functions depend on t. A careful adjustment of the asymptotic behavior, however, 
ensures that all the degrees of freedom are useful in resolving the solution. An ad- 
ditional advantage is that more of the improper integrals (over the infinite domain, 
e.g. the impulse and kinetic energy) will be convergent and have meaningful, finite 
values. 

Numerical efficiency depends on both the number of terms required to represent 
a typical solution, the length of the time steps that can be taken, and the number 
of operations required to advance the solution one time step. With VSH, the linear 
terms are completely uncoupled (orthogonal) in the two angular directions. When 
the basis functions and the weight functions are the same, the matrices resulting 
from the radial direction (eqn 2.3.9) are symmetric and positive-definite (section 
3.4). With our choice of mapping and radial functions they are also banded, where 
the number of non-zero elements above the diagonal is 3 and 5, respectively (for 
every m and t ). Bandedness is important not only for efficiency in solving the linear 
terms in the final set of coupled ODE’s but perhaps more importantly, to minimize 
the round-off error which could ultimately corrupt the solution when many terms are 
used. In the process of developing the method, several alternatives were considered 
where these matrices were full, which led to poorly conditioned matrices even at 
moderate values of L and N . 

The azimuthal coordinate is the only direction employing the FFT, in contrast 
to similar spectral methods where typically two of the three directions are Fourier. 
The operation count in transforming to and from wave-space for large N is 0(N 4 ). 
In comparison to other three-dimensional spectral methods using FFT’s in two 
directions and a “slow” transform in the third one (Leonard ei al, 1982, Spalart, 
1986), the present approach is slower by a factor of two, (not an order of magnitude, 
as it might first appear). This is acceptable for three-dimensional computations. 



Chapter 3 
Numerical Procedure 


In the previous chapter, the incompressible Navier-Stokes equations were cast 
as a set of coupled ordinary differential equations. By using spherical polar coor- 
dinates, and considering only the m = 0 modes, the three-dimensional problem 
reduces to the axisymmetric problem exactly. This axisymmetric problem was im- 
plemented in FORTRAN to run on the CRAY-XMP computer. This chapter dis- 
cusses the practical aspects of solving these equations including time advancement, 
transforms to and from wave-space, Cholesky decomposition and its use, aliasing, 
and initial conditions. 

The axisymmetric basis functions are extracted from the three-dimensional 
functions by setting m = 0 (axisymmetric flow) and imposing = 0 (no swirl 
velocity) in the velocity expansion (eqn. 2.3.5). One finds that the axisymmetric 
solution is described by the -f- modes alone (eqn. 2.3.8). From this point forward, 
we will only discuss the axisymmetric problem, so the + symbol is dropped and m 
is set to zero, simplifying the notation (i.e. a+ m = a nl , /+ = 
etc.). 
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3.1 Time Advancement Schemes 


In Chapter 2, the complete equations were derived for the three-dimensional 
problem. Assuming the flow is axisymmetric, these simplify to the equations gov- 
erning the + modes: 


A n > n (£) 


da n e 

dt 


vBn'nity Q-nl ~ — Qn'i^ty 


(3.1.1) 


where Q n >(i) =< u Xtu, V x (/^ £ XJ m ) > . This is a set of N(l) x N(l) equations for 
each l. Throughout this work, the matrices, A n > n (£) and B n < n (£ ), are referred to 
as the mass and viscous matrix, respectively. The vector representing the non-linear 
term, Q n >(£ ), acts as a forcing to the linear equation, and is integrated explicitly 
in time using Adams-Bashforth (AB), a second-order scheme. 

Applying an explicit solver for the viscous term in a non-Fourier spectral 
method severely limits the maximum step size allowed by the stability criterion. 
An example of this is the solution of the heat equation between two walls using a 
Chebyshev-spectral method (Gottlieb and Orszag, pg. 115); for this problem, the 
stability limit gives At = 0(1 /N 4 ) as N — > oo. It is important, therefore, that the 
viscous term be treated implicitly for non-Fourier expansions. Because the semi- 
bandwidth of the mass matrix is 3 and that of the viscous matrix is 5, and the mass 
matrix needs to be inverted anyway, an implicit scheme for the viscous term brings 
only a moderate penalty over an explicit scheme (Leonard and Wray, 1982). The 
Crank-Nicolson scheme, used to integrate the viscous term, is also second-order 
accurate in time. Therefore, the overall time-integration scheme is second-order 
accurate. 

The time-differenced form of equation (3.1.1) is thus: 


A n 'n(£) 


i j+1 

l n£ 


ai, / ait 1 -fed, \ 3 1 • , 

— -o r 1 + O Qn'l ~ 2 Qn't (3.1.2) 




At 


— Bn'n(£) 


where j indicates the time level: t = j At. Defining A a? ni = a^ 1 — a J n£ , equation 
(3.1.2) may be written in “delta form” as: 


An(i) = Bl n (e)ai t - (3 <&. t - Q j n 7?) At (3.1.3) 

where = -[2 A n . n {i) - A and = -2 A tB n , n (£). 

Two codes are used to solve these equations. The first code, IC, takes an initial 
condition, the velocity or vorticity field at an instant in time, and computes the 
coefficients of the spectral expansion. Using these coefficients, the second program, 
NS , integrates the coupled set of ODE’s (eqn. 3.1.3) forward in time from the initial 
state. 


In NS , the mass and viscous matrices are computed once and stored. With this, 
the matrices A^, n (i?) and B^, n (<?) are then computed and stored in place of A n ' n (S) 
and B n > n (£). Next, the implicit matrix, Aj l/;l (£), is decomposed with the Cholesky 
method and replaced with its decomposed form. The matrices are symmetric and 
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banded, requiring a total storage space of 6N L each. The time integration proceeds 
as follows: 

(a) Using a J n( , compute Q 3 n , g for all n r and l (by a pseudospectral method) 

(b) For each £, compute and add it to —(3 Q 3 n , e - Q 3 n 7/)At. 

(c) For every multiply through by [A^ n (^)] _1 to obtain A a^ £ , hence a 3 ^ 1 . 

(d) Save Q 3 n , t in place of Q 3 n 7/ . 

(e) Advance in time, save a 3 n ^ 1 in array a 3 ng1 and return to (a). 

The following sections more carefully describe these steps; transforming to and 
from wave space (section 3.3), forming the mass and viscous matrix elements (sec- 
tion 3.4), inverting A^, n (^) using Cholesky decomposition (section 3.5), computing 
the non-linear term (section 3.6), and starting the initial conditions (section 3.7). 


3.2 Axisymmetric Basis Functions 

The velocity expansion for axisymmetric flow is given by 
L N(i) 

u = ant C£ V X (fnlXi) 

£-1 n=0 

L N(i ) L N(t) 

= EE a «< (/a.i W + W/) = £) E a 


(3.2.1) 


1=1 n—Q 


1=1 n = 0 


where a constant has been inserted for convenience, a = —i 
radial basis functions are specified through the mapping, 

2 rU 


4tt£(£+1) 


1 1/2 


2£+l 


The 


r = 


1-f 


and the radial function, 

/»< = ( 1 - 0 (t+1)/ ¥ /2 Gi(0- 

Recall that and /;. n t are related to f n e by 


(3.2.2) 


(3.2.3) 


hnc = * : 


, , y« 

■ d v 

V2€ -h iy 

dr r 


f 3 n/ — 2 


e + i 

21? + i 


1/2 


fn£ 


d , (f + 1) 

c/r r 


(3.2.4) 


/ni 
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Jacobi polynomials, denoted by C?^(£) , are polynomials of order n. Their definition 
is modified from that of Abramowitz and Stegun (1972, eqn. 22.2.2) as follows: from 
the notation of A&S, start with shifted Jacobi polynomials, G n (p } q,x ) , normalize 
them such that h n — 1 (i.e., orthonormal polynomials), and set p and q equal to 
2£ — 1 and £ — \ (note that p and q used here are not related to the notation of 
Chapter 2). The choices of p and q were determined by constraining the matrices, 
A and B , to be banded. Note that if we had a scalar field and did not apply the 
operators (2.3.10) and (2.3.11), and Li , the matrix would be diagonal. 

The components of the basis functions for the velocity reduce to: 


r ~i 

U r 

L N(£) 

"*n tr' 

L N(£) 


uq 

=LE a "' 

£=1 n=0 

V n ee 

,$n t+ m 

-E£-« 

/=1 n= 0 

Pl(v) 

_0 


(3-2.5) 

by substituting q and the definitions for V* and (Appendix C) into equation 
(3.2.1), and simplifying. The functions Pf(p) and P}(p) are the associated Legen- 
dre functions, .P™(/i) (Arfken, 1985), where m = 0 and m = 1, respectively, and 
p = cos 0 . Their properties are summarized in Appendix C. 

The vorticity only has its azimuthal component: 

L N(t) 

u<t> = (V x u) 0 = a nl Q [V x V x (fniXt)]^ (3.2.6) 

i~l n= 0 


Applying the definitions of q and (Appendix C), and assuming axisymmetric 
flow without swirl, equation (3.2.6) reduces to 


L N(£) 

— 

£~1 n = 0 


Recall that the definition of the operator, Z^, from Chapter 2 is 


Lttfnt) = 


' d 2 2 £ 

dr 2 r dr 


£(£ + 1 ) 


fn£ 


(3.2.7) 


(3.2.8) 


From equation (3.2.5), the radial dependence of the velocity components are 
given by /„*(r)/r ■ This can be expressed as a polynomial in £ of order n + i -f | . 
For efficiency (i.e. so that we don’t carrying useless degrees of freedom), we choose 
N{P) so that each expansion is the same order in £ for every i. Therefore, by using 
a constant and sufficient number of collocation points, integrals of products of the 
functions (as in computing the nonlinear term) will be exact for every t. The result 
is N(l) + 1 + \ = N(£) + £ + i,or N(£) = N( 1) - £ + 1 . 
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3.3 Transforming To/From Wave-Space 


Transforming from real-space to wave-space, given the coefficients of the basis 
functions, is done by evaluating summations at a finite number of grid or collocation 
points, rj and Qj , where i = 1, . . . , N c and j — 1, . . . , L c . Transforming to wave- 
space from real-space involves numerical evaluation of definite integrals where the 
integrands are known at the collocation points. Two such examples are evaluating 
the non-linear terms, Q n >{t ), and finding the expansion coefficients for an initial 
condition. This section discusses the theory and practice of transforming to and 
from wave-space for orthogonal functions. 

Like the matrices, the basis functions (evaluated at each collocation point) are 
computed once and stored. The radial basis functions corresponding to u r , uq , and 
are 

GR{n,Z , i) = t(t + 1) Mill 

ri 

GTH(n,e,i) == I (3 - 3 - 1} 

GV(n,e,i) = L t (f nt (^)) 


where £,• is the i ih grid point in the mapped radial coordinate, £ . The polar basis 
functions are 


PQ(£,j) = Pt{ N ) 
Pl(£J)=P}( N ) 


(3.3.2) 


and is the j th grid point in the polar direction where fi = cos0. 

Before evaluating equations (3.3.1), the derivatives are replaced with sums of 
the neighboring Jacobi polynomials (i.e. <?£ +1 and G^_ lt cf., Appendix B). The 
derivatives in equation (3.3.1) could either be evaluated numerically or computed 
analytically. It is preferable to compute them analytically in order to reduce the 
round-off error (see section 3.5). Due to the mapping, the second derivatives in 
Li, and the complicated recurrence relations of the two parameter family of Jacobi 
polynomials, the algebra is quite involved. By hand, it would be extremely tedious 
and time consuming. With the aid of a symbolic algebra program, MACSYMA, 
this task is greatly simplified, but is still a major effort. MACSYMA is also used 
to analytically compute the elements of the mass and viscous matrices in equations 
(3.4.1) and (3.4.3). 
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The transforms in vorticity and velocity in terms of the stored arrays are given 
by 

L N(i) 

amGR(n,e,i)PO(e,j) 

1= 1 n— 1 

L N(e) 

«e(n,0;)=E Y, a ’' eGTH ( n ’ t ’ i ') P l(Ai) (3-3.3) 

t—\ n=l 

L N(l) 

^•)=E E 

£~1 n = 1 

Assuming L c = N c , it appears at a first glance, that 0(N*) operations are required 
to evaluate equations (3.3.3). The operation count is reduced to 0(N%) because 
the G functions do not depend on j and the P functions do not depend on i , as 
shown in figure G.3. Ordering the loops in this way, also turns out to be well suited 
for vector processing on the CRAY-XMP. 

We wish to evaluate the integral of a function, g(x) over the interval [a, 6] using 
Gauss quadrature. We begin by writing g(x) as the product of a new function, 
P(x ) , and a specified weight function, w(x) (determined by the interval [a, 6] ). For 
example, in Gauss-Laguerre quadrature, the weight function is e~ x and the interval 
is [0,co], The definite integral is then approximated as a discrete sum by 

r b pb N c 

/ g(x)dx= / P(x)w(x)dx P(xi) Ai (3.3.4) 

J cl J a t -_2 

where A,- are the weights (not to be confused with the weight functions, tc(r)), 
and X{ are the collocation points. The degrees of freedom are A,- , and X { , where 
i = 1, . . . , N c , totaling 2N C (Appendix E). If the function P(x) in equation (3.3.4) 
is a polynomial of order 2 N c — 1 (the space of such polynomials also has dimension 
2 N c ), then the discrete sum describing the integral is exact (to within machine 
precision) with N c collocation points. 

The power of Gauss quadrature together with spectral methods, is that we can 
often integrate expressions exactly by using Gauss-type quadrature rules which are 
compatible with our expansion functions. 


3.4 Forming the Mass and Viscous Matrices 


The mass and viscous matrices result from the coupling of the radial modes. 
Because they are not time-dependent, they can be computed once and stored. This 
section will discuss the properties of the matrices and the method used to compute 
them. 
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In Chapter 2, we developed the mass and viscous matrices, 


A n 'n(/0 


p oo 

Jo 


(3.4.1) 


poo 

B n >n{Z)— / [£^i(/ 2n ,)/2 n// + Lt-i{fz nt )/3 n ,J r 2 dr (3.4.2) 

Jo 


which are functions of the radial functions, f n £ , and mapping, £(r) . These were 
chosen such that A and B have semi-bandwidths of 3 and 5, respectively. With 
banded matrices, the operations count per time step is much lower; there is also 
less round-off error (see section 3.5). 

It is clear from equation (3.4.1) that A is symmetric and positive-definite, 
however, this is not as clear for equation (3.4.2). Before evaluating the viscous 
matrix, it is first simplified by integrating by parts. The result, 


B n ’n{£) — ~ 


+ 


l 


° 4fr.« , 

dr dr 

d h„, d K’ t 2 

J> 

dr dr 


p oo 

- 2 dr -f (£ + 1) (£ + 2) / f 2nl h nH dr 

Jo 

dr + 1 (i - 1) f 3nt f 3nU <fr) 


(3.4.3) 


is clearly symmetric and negative-definite. As mentioned earlier, Li is self-adjoint. 
This form (eqn. 3.4.3) is preferred from a computational standpoint since the order 
of the derivatives is reduced by one. Again, MACSYMA, was used here. 

MACSYMA is a high level programming language. It symbolically manipulates 
expressions, and has an extensive library of algorithms which, among other things, 
evaluates derivatives and integrals. One can either interactively enter commands to 
the program, or submit a list of commands in the form of a batch job. The program, 
written in LISP, is recursive in nature, and therefore, even for moderate problems 
can quickly use very large fractions of the disk space of a VAX 11-780. Much of the 
difficulty encountered was due to running out of disk space. 

The end result, the diagonal and off-diagonal expressions as a function on n 
and £, are written directly in FORTRAN (by MACSYMA). A single expression is 
up to 15 lines long, giving an idea of the complexity of the algebra. The MACSYMA 
codes are described and listed in Appendix G. 


3.5 A Few Words About Stiffness 

In a viscous flow, the ratio of largest to smallest length scales is a function of the 
Reynolds number of the flow. This, in turn, is reflected in the ratio of the largest 
to the smallest eigenvalues of the matrices. As the ratio of eigenvalues becomes 
large, the time integration becomes increasingly difficult. This behavior is what we 
call stiffness. By using implicit time advancement for the viscous term, we have 
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helped to alleviate some of the problem. The stability limit for the time step is 
not as severe as it otherwise would be, although we still must contend with round- 
off errors. Round-off error comes from several sources - from forming the matrix 
elements, and from advancing the solution in time, in particular it is a function of 
the number of operations per time step. Several steps are taken to keep these errors 
to a minimum. 

The number of operations per time step is determined largely by the matrix 
structure of the system being solved. For example, a full matrix requires 0(iV 3 ) 
operations initially and 0(N 2 ) at each time step, while a banded matrix requires 
0(m 2 N) operations, where m is the number of non-zero elements above the di- 
agonal. For the problem at hand, the matrix structure is even more specialized - 
it’s banded, symmetric and positive-definite - leading to even greater savings. The 
algorithm which exploits this particular matrix form is called Cholesky decomposi- 
tion (see Golub &; van Loan, 1984). The round-off error of this algorithm has been 
studied rigorously by Wilkinson (196S) and shown to be very low. 

An important consideration, therefore, in forming a numerical method is to 
consider the conditioning of the system of equations which are solved. Minimizing 
the number of operations not only helps the efficiency but also the round-off error. 
By choosing weight functions to be the same as the basis functions, the resulting 
matrices are positive-definite and symmetric. It is also very helpful to minimize the 
bandwidth of the matrices by careful choice of the basis functions. 

Round-off error also enters the problem in computing the matrix elements. 
Again, using MACSYMA, the analytic expressions for the elements were found. 
The result is an expression for the diagonal, and off-diagonals, in terms of n and 
t . These expressions are evaluated once and stored, so it is not a large penalty to 
evaluate them in double precision, and store them in single precision, thus obtaining 
the correct result to every significant digit. 


3.6 Computing the Non-Linear Term 

From equation (2.3.8), the non-linear term is 

Qn\t) =< u xw,$ n7 > \ (3.6.1) 

c t 

One way to compute this term is spectrally. By substituting the expansions for 
velocity and vorticity, the time-dependence is separated in the usual way from the 
spatial dependence giving integrals of triple products of the basis functions. Each 
time step would then involve a convolution sum. Even if the integrals of basis 
functions could be evaluated analytically, a convolution sum is more expensive than 
a pseudospectral approach where the coefficients are transformed to real space, the 
non-linear product is formed, and the result is transformed back to wave space. 
This led us to adopt the pseudospectral method. 
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To compute Q n >{£) pseudospectrally, we first write equation (3.6.1) in compo- 
nent form, 


27r /* 7r 

Qn'{£) — ~ / / [(u0UJ ( j > )'$n'£r — ( u rU t f > )'& n 'i e \r' 2 sinOdrdO (3.6.! 

c i Jo Jo 


then equation (3.6.2) is expressed as successive transformations in each direction 
(note that this was also the case for eqn. 3.3.3). With q = uxw, the nonlinear 
term can be written as 


27 r 


Qn'{£) = ~2 (q r ( n ',Z) - 


where the polar transform is 


q r (r,£)=z J (ueuitf,) 
qd(r,i)^ J (uru^) P}(jj,)df.i 


and the radial transform is 


fnt 


q r {n\£) = / q r (r,£)l(£ + 1) —r 2 dr 

Jo r 

✓v r°° i j 

q d (n',£)= / qe{r,i)- — (rf nt )r 2 dr 
Jo r dr 


(3.6.3) 


(3.6.4) 


(3.6.5) 


The integrals are then cast as sums using Gauss-Legendre and Gauss- Jacobi quadra- 
ture (Appendix E). 

When using a pseudospectral method, we must concern ourselves with alias- 
ing - the phenomena of higher frequencies “masquerading” as lower frequencies 
because a continuous function is sampled only at discrete points and described by 
a Fourier series. With polynomials, errors creep in for the same reason, but you 
cannot say that “one polynomial is mistaken for another.” Typically in a pseu- 
dospectral method, the number of collocation points is equal to the order of the 
approximating polynomials. In forming a triple product of the basis functions (as 
in the nonlinear term above), the result will have aliasing errors. This occurs be- 
cause the product of functions produces a new function with frequencies that are 
higher than the original functions. If the original function is barely resolved, then 
the polynomial approximation will not resolve the product and the higher frequen- 
cies will appear as lower frequencies. With Fourier series, one way to remove this 
error (or dealias) is to pack the coefficients in spectral space with zeros, transform 
to real space with a larger number of points, perform the non-linear product at the 
sample points, transform back to wave-space, and discarding the higher coefficients 
(previously added). The number of points added and removed is (1/2) A r , giving a 
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total of (3/2) iV. The equivalent process for other polynomial expansions is done 
by choosing N c = (3/2) N . In this way, the integral expression, involving products 
of three polynomials of up to order N (as in eqn. 3.6.2), is integrated exactly with 
Gauss quadrature. If the flow is smooth and well resolved, however, dealiasing may 
not be necessary since the higher modes which are interpreted as lower modes have 
a very small contribution. To avoid aliasing errors, therefore, either the flow must 
be over-resolved or we must use 3/2 N collocation points. 


3.7 Initial Conditions 

To start a calculation, only one scalar component of the vorticity needs to be 
specified over the infinite domain. One could also start from a velocity field, but 
specifying such a field requires two components and a constraint. Thus, in practice 
a vorticity-based initialization is much more powerful. Two initial distributions 
have been used - the Stokes vortex ring, and a thin ring with a Gaussian vorticity 
distribution in the core. 


3.7.1 Stokes Vortex Ring 


Exact solutions to the diffusion equation for vorticity in spherical polar coordi- 
nates are developed by Cantwell (1986) for several different forcings. The solution 
of interest here is that resulting from an impulsive point force, leading to what we 
will refer to as the Stokes vorte x ring. This is a self-similar solution in time with 
similarity variable, 77 = r/yj^vt. This solution is a convenient starting point in our 
calculations for several reasons. 

Given such an exact solution, we are able to validate the Stokes part of the 
Navier-Stokes solver (see section (4.2.1)). In solving the Stokes equations, the an- 
gular direction is exactly represented by the first mode in 9 (£ = 1 ); the radial 
modes are the only non-trivial terms in the expansion. 

The vorticity distribution for a Stokes vortex ring is 

= St xW{vi? Sin$71 eXP "’' 2 (3 - 7 - 1} 

and the radial and polar components of velocity are 


«r(»7> 8 ) 


-I/P 

f ) 3 / 2 





(3.7.2) 
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-I/P 
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477" 


erf ( 17 ) 


(3.7.3) 


As Cantwell points out, the Stokes solution is uniformly valid over the full range 
0 < 77 < 00 . 
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The Stokes equations are a limiting form of the Navier-Stokes equations for a 
Reynolds number approaching zero, where the appropriate Reynolds number is 


Rej 


(t/py 12 

vtj 1 / 2 


(3.7.4) 


Note that the Reynolds number is inversely proportional to time. Starting at tj = 0 , 
an impulsive force forms a turbulent puff (with Rej = oo) of the type studied by 
Glezer (1981), and after a very large time ( tj -4 oo), the vorticity and velocity 
fields approach the Stokes distributions given by equations (3.7.1)-(3.7.3). 

The free parameters are found by transforming the vorticity to computational 
variables using equations (2.1.5) and (2.2.8), 


LO — 


87T 3 / 2 tj 


— sin # r exp' 


(3.7.5) 


From this, we see that the time, tj , is the only parameter in the solution. Also, the 
time in the code, 7, is set to tj (or Re/). 

There is nothing that prevents us from specifying, for our initial state, a Stokes 
solution which is at a Reynolds number outside of the range of validity of the Stokes 
equations ( Rej >1). This is in fact what is done in the results section (5.2.1) 
where the Navier-Stokes equations are solved with an initial Stokes distribution of 
Reynolds numbers 30 and 40. Therefore, the starting solution contains only the 
1 = 1 mode, and the other modes are excited through the non-linear terms. As 
time progresses, the solution decays and returns to the Stokes solution. This is the 
simplest initial condition, since it is characterized by a single parameter, Rej . 

Note from equation (3.7.5) that contours of uj t in expanding coordinates, r, 
are steady. This is convenient in studying the long time behavior; we can study 
how the non-linear solution approaches the Stokes solution. 


3.7.2 Thin Ring 

Note that any function, (^(r, 0 ) is a valid initial condition since in the un- 
steady case the time derivative, , is free. In this section, we describe a vorticity 
distribution in the core which is easy to specify - a Gaussian. It has the additional 
advantage that for a thin viscous ring, it is the first order solution to the vorticity 
distribution in the core for a solution which has been evolving according to the 
Navier-Stokes equations. Therefore, it is reasonable as a first guess. 

In the core of a thin ring, where the core radius is small compared to the ring 
radius, the solution is locally two-dimensional. Furthermore, to a good approxima- 
tion near the core the streamlines are circular. Applying these assumptions to the 
Navier-Stokes equations in polar coordinates, s and /?, the momentum equations 
become 

P u l _ dp 
~ ds 


s 


(3.7.6) 
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Figure 3.1. Schematic of a thin ring with Gaussian vorticity distribution 


dt \ ds 2 s ds s 2 ) 


(3.7.7) 


where s is the distance from the vortex center. Equation (3.7.6) is a constraint of 
the radial pressure gradient which must be maintained to have circular streamlines. 
Rewriting equation (3.7.7) with the vorticity as the dependent variable, we have 


du ; _ f d 2 ui 1 dto \ 

'dt~ v + 7aT ) 

giving the classical Oseen solution (1910): 


(3.7.8) 


“ (Mr) = i^ eXp ( 4 i) ( 3 ' 7 - 9 ) 

where T is the circulation in a meridional half-plane. It follows that the tangential 
velocity distribution is 


u 0 (s,t r ) = l s l “ sds = -£- S {' ~ (-1^)} ( 3 ' 7 ' 10 ) 

At the origin of time, tr ~ 0 , the vorticity is concentrated on a line, s = 0 , and as 
it spreads it takes the shape of a Gaussian. The core radius, a , is defined as the 
distance from the center of the vortex to the peak radial velocity. This is found from 
equation (3.7.10) by setting = 0, and solving for a, giving a = 2.24182 y/vt. 

To describe a thin ring, the two-dimensional vortex is offset a distance R from 
the axis of symmetry as shown in figure 3.1. The distance from the core is therefore 
s — ( R 2 -f r 2 — 2 Rr sin#) 1 / 2 , and the total vorticity distribution is 
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(3.7.11) 


where K = (2.241S2) 2 /4. To assure that the initial distribution was smooth, an 
image ring was placed across the axis of symmetry so that = 0 on the axis. In 
computational coordinates this becomes 
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3.8 Reynolds Numbers and Virtual Origins 


This initial condition is characterized by three parameters, Rer = (T/v) 0 , ( a/R ) 0 , 
and the ring radius location in computational variables, R 0 . For thin rings, R 0 is 
inconsequential in the description of the initial condition in physical coordinates. 
Furthermore, given R Q) the collocation points are clustered about this radius. In 
describing the Stokes solution, however, this is not a free parameter. Therefore, 
for computing flows for long periods of time, we pick R 0 which can resolve the 
limiting solution well, the Stokes vortex ring. In the Stokes solution, the ring radius 
* s ~ no ^ we ^ defined; peak of vorticity (R ~ 2) and the point where uq — 0 
( R = 3 ) are not the same. Experience showed that the latter gave a more accurate 
approximation of the solution, therefore, for all simulations, R 0 = 3 . 

The appropriate choice of the initial value of time, t Q , for the thin ring initial 
condition must be consistent with R — 3 and is found from the expression for 
impulse 


r 7T r OO 

I/p = IT I / u ;^(r sin#) 2 r drd9 

J o Jo 


(3.7.13) 


Rewriting equation (3.7.13) in computational variables, gives 


1 


t 7T 


Jo Jo 


Lo<j> (r sin 9) 2 r drdO 


(3.7.14) 


With equation (3.7.12), the vorticity (c D^) is specified, therefore, from equation 
(3.7.14) t is determined. 


3.8 Reynolds Numbers and Virtual Origins 


There are many ways to define a Reynolds number for a vortex ring. Exper- 
imentalists often use = Rep, where U is the propagation speed, D is the 
diameter of the ring, and v is the kinematic viscosity. Alternatively one might use 

" = R e l ? where I/p is impulse, and tj ~ 0 is a virtual origin in time when 

the ring was created by an impulse force (Cantwell, 1987). Still another measure 
is F /u = Re p. Because the flow is viscous, Y decreases with time. For rings with 
infinitesimal cores however, the cancellation of vorticity across the axis is expo- 
nentially small and for a time, F ~ constant. Locally, in the core, the vorticitv 
is diffusing like a two-dimensional Oseen vortex. The origin in time for this case, 
*r = 0 , refers to the concentration of vorticity along a circular line. 

Each of these Reynolds numbers is more appropriate in different circumstances. 
Expressions can be derived giving approximate relationships of these Reynolds num- 
bers to one another. For example, using I/p « irT(tr) R(tr ) 2 (which assumes that 
the core is thin), and a « 2.24(z4 r ) 1 / 2 (from an Oseen solution), we get 


Re i 




1/2 


(3.8.1) 
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3.8 Reynolds Numbers and Virtual Origins 


Note that in equation (3.8.1), tj was replaced by ir . It gives an approximate 
relationship between Rej and Re r (together with a/R). 

Next, we express Re£>(Re-p,a/R) by using the expression for the propagation 
speed of viscous vortex rings (Saffman, 1970, i.e. equation (5.2.10)), and again, 
a ph 2. 24(i/ip) 1 / 2 , giving 
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Rearranging (3.8.2) gives 


0.558 


(3.8.2) 
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In the results, we have scaled the time in two different ways. This final para- 
graph discussed these scalings and their relationships. The scaling more frequently 
used in this work is ~ t. When there isn’t a subscript, ( )/ or ( )p , the origin 
in time is determined by the method described in section 3.7.2. The second scalm 0- 
, is used m section 5.2 to study thin rings, and the virtual origin is chosen in 
order to compare the calculation with theory, giving • In order to relate f r to 
the time in the calculation, we must find ^fr(7,7 0 ,R 0 ). 


From (2.1.5), we can write 



(3.8.4) 
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Next, we shift the origin in time to get ty by 


vt T _ l ft vt shift 
R 2 R 2 + R? 

and we solve for the initial time in the calculation, t 0 from 


(3.8.5) 


(3.8.6) 
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Combining ecjuations (3.8.5) and (3.8.7) gives 


vtr 



(a/R) 0 \ 2 
2.24182 J 


(3.8.8) 


In the results, Rer and Rej are used when referring to a specific calculation. 
When the distinction is not necessary, we simply use Re to denote the Reynolds 
number. 



Chapter 4 


Harmonic Convergence 


In this chapter, we examine convergence properties of the numerical method. 
As mentioned in section 2.2, it can be shown for linear equations, that the con- 
vergence of a spectral approximation to a typical velocity field (by least squares) 
determines the convergence of the spectral solution to the exact solution of the dif- 
ferential equation. Therefore, we begin by examining the convergence of a spectral 
expansion to some typical solutions — Stokes rings and thin rings. 

Next, by using the Stokes vortex ring solution, an analytic solution to the Stokes 
equations, a substantial part of the code is tested. This test is easily implemented 
by setting the convective terms to zero. Note that the polar dependence is exact 
using the £ — 1 mode, so that only expansions in the radial direction are tested. 

Because the Navier-Stokes equations are nonlinear, there is no guarantee that 
the convergence of the time-dependent solution is related to that of the basis func- 
tions, however, this is what normally happens in practice. By computing the im- 
pulse (which is conserved in the exact solution) as a function of time, we are able 
to test the global convergence and accuracy as the time step is decreased and the 
resolution is increased. From this, we show exponential convergence with resolution 
and second order convergence with the time step, as expected. Furthermore, when 
the two limits are taken simultaneously, the error in impulse goes to zero, showing 
that the solution is globally accurate. 
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Figure 4.1. Convergence of the spectral expansion to typical initial con- 
ditions: , the Stokes solution; , a/R = 0.35; 

, a/R = 0.15; , a/R = 0.1. 


4.1 Initial Conditions 


As shown in Gottlieb and Orszag (1977), the beauty of spectral methods is 
their exponential convergence as the number of modes, N , is increased. If the basis 
functions are chosen incorrectly, however, the convergence can be much slower, or 
the numerical solution may even converge to the wrong solution. An important 
test is conducted in this section showing the convergence properties of the spectral 
expansion to typical solutions. Of interest in particular, is the number of terms 
that are required to represent a given vector field, and how the error varies with 
the number of modes. First, we must define a measure of the error. 

Only one vorticity component (u?^) is nonzero in axisymmetric flow. If the 
exact vorticity is given by w , then the local error, 

^ error — OJ ^ ^ Q-nl 4/ (4.1.1) 

nl 


is exponentially small. From this we define a global, normalized error: 


Ja ‘fjrror 
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It follows that we expect the global error to also be exponentially small. Therefore, 
lncj# versus N should be linear. 

In figure 4.1, the global error is plotted on a logarithmic scale as a function of 
the number of modes, IV, where L = N. For four different initial conditions - a 
Stokes solution, and three thin rings with a/R — 0.35, 0.15, and 0.1 - the curves are 
indeed essentially linear, at least for large enough N . Because the Stokes vortex ring 
involves only the i = 1 mode and has a relatively smooth vorticity distribution, 
it is the easiest to represent. With only 10 modes, the global error is O(10 -2 ). 
Between 40 and 45 modes there is a jog in the curve, for which we do not have a 
definitive explanation. The number of collocation points used in all cases studied in 
figure 4.1 is N + 5. For this stray point (JV = 45), an additional case was run with 
| N , giving the same result to within plotting accuracy. From this, we conclude 
that integration error is not the cause. Perhaps it is due to round off errors since, 
with this number of modes, the errors are very small. 

As expected, approximations of rings with thinner cores have larger errors than 
thicker cores for a given number of modes. Notice also, that the slope is decreasing 
slightly for thinner cores. With a sufficient number of modes, however, all of the 
cases considered indicate exponential convergence. When N and L are equal, the 
number of collocation points in the core in each direction (r and 9) was roughly 
equal. Therefore, for all of the thin ring cases, L is set equal to N , simplifying the 
input. 

The thinnest ring which was resolved sufficiently was a/R — 0.1. Because the 
spacing between collocation points in 9 is equal (Appendix C), to resolve a ring 
with half the core size, we need twice as many modes. At some point, therefore, 
the payback is small compared to the cost. In practice, to determine if a given 
problem is resolved sufficiently, it is best to show that the quantities of interest are 
insensitive to variations in the free parameters, N , N c , and rq , by ±10%. 

In solving the Navier-Stokes equations, we can start with any vorticity distri- 
bution which satisfies the boundary conditions. In general, the gradients in the 
solution will decrease overall (since the Re decreases in time), however, this is not 
necessarily true locally (because Re is a global parameter). Although we expect 
the solution at later times to require fewer terms than the initial condition, time- 
dependent diagnostics are desirable. Furthermore, such diagnostics are needed to 
monitor the accuracy of the time integration. 


4.2 Time-Dependent Solutions 


Next, the convergence and accuracy of the time-dependent solutions is exam- 
ined. The Stokes part of the Navier-Stokes code is verified to be working correctly 
by comparing vorticity profiles at several times with the analytic time-dependent 
solutions. To study the accuracy and convergence of the numerical solutions to 
the Navier-Stokes equations, since there are no useful exact solutions, we rely on 
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Figure 4.2. Vorticity along 6 = tt/2 computed from the Stokes equation 
(shown as symbols at the collocation points) compared to 

the analytic Stokes solution: , t = 1.0; , t = 1.5; 

---,< = 2 . 0 ). 


diagnostics such as impulse, circulation, and the comparison of the rate-of-change 
of energy with dissipation. The impulse is especially useful since it is fundamen- 
tally conserved for unforced flow in an unbounded domain. The impulse of time- 
dependent solutions is computed for various step sizes and resolutions and shows 
that the solutions converge (with decreasing step size and increasing N) and that 
they are accurate. 


4.2.1 Stokes Equations 

The convergence and accuracy of the time-dependent solution of the Stokes 
equations are tested using the exact solution of the Stokes equations, the Stokes 
vortex ring (eqn. 3.7.1). This test is easily implemented by setting the convection 
term equal to zero in the Navier-Stokes code. The polar direction is exact with only 
the i — 1 mode (the 6 dependence for both the Stokes vorticity and the first polar 
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vorticity function, P} , is sin0), therefore, it is sufficient to consider only the radial 
direction, for which there are 10 modes and 15 collocation points. 

The initial condition is given by the solid line in figure 4.2 (t = 1) and the 
approximate representation of the function at the collocation points is shown by 
triangles. Integrating the Stokes equations in time (40 time steps) gives the result 
shown by circles ( t = 1.5). The exact solution at that time, shown by the long- 
dashed line, is in close agreement. Integrating once again (30 time steps) we get 
the square symbols. Again, the results are in very close agreement with the exact 
solution at that time ( t — 2.0) represented by the shortdashed line. 

Notice that the solution is very accurate with only 10 terms - the initial con- 
dition, at 1 = 1, corresponds to of O(10“ 2 ) in figure 4.1 - and the accuracy 
is maintained at the later times. Also note that the peak vorticity moves outward 
with time and the collocation points (because of the transformation - eqn. 2.1.8) 
follow suit. 


4.2.2 Navier-Stokes Equations 

Since exact solutions of the full nonlinear equations are not available, other 
methods are needed to verify that the code converges and that it is accurate. One 
indication is the degree to which global invariants, such as impulse, are conserved. 
Also computed are the rate of change of vorticity, circulation, the momentum, and 
the dissipation and rate of change of energy. Another means of verifying the accu- 
racy is to compute limiting solutions and compare them with asymptotic theories 
(see Chapter 5). 

A single case (( T/u) 0 — 100 and ( a/R) 0 — 0.35) is run: first, with a fixed 
resolution and varying the time step, and second, with a fixed time step and varying 
resolution. The baseline case, from which these variations are made, uses 55 x 55 
modes, 400 time steps, and (A £)& = 0.0025. At each time step, we compute the 
percent error in impulse, defined by 

I E = LzImsL x 100- (4.2.1) 

■* exact 

Recall that t refers to the dimensionless time and t refers to the time in the calcu- 
lation, where t = In#. 

In figure 4.3, the time history of I g is plotted for four different step sizes: 
i(A£)&, (A t)b, 2(A t)b, 4(A<)&, using S00, 400, 200, and 100 time steps, respec- 
tively, where the baseline case is shown by the chaindashed curve. As expected, the 
error becomes smaller with smaller time steps. Furthermore, the magnitude of the 
error in this figure is very small - % 0.001% (accurate to 5 significant digits). We 
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Figure 4.3. Navier-Stokes calculations with initial conditions ( a/R) 0 — 
0.35, (T/u) 0 = 100, and N = L = 55, and different step 
sizes: . l(At)h: — - — . (At)h : — — . 2(A t)hi 


Figure 4.4. The percent error in impulse versus (At) 2 at the final time 
in figure 4.3. 
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found that the largest step size, 4(At)&, is very near to the stability limit (with 
larger values of A the solution blew up) indicating that stability rather than ac- 
curacy, constrains the maximum step size. At the final time, t — 0.00083, I# is 
plotted as a function of (At) 2 (figure 4.4). As expected, the curve is linear, since 
the time differencing scheme is second order accurate (see Chapter 3). This test is 
useful for detecting subtle coding errors. 

Note in figure 4.3 that the curves are converging to a finite error in impulse. 
We immediately suspect that the spatial resolution is responsible for the remaining 
error. To test this, the resolution is varied (45, 55, and 65 modes) from the baseline. 
The result, figure 4.5, shows that this is indeed the case - the dashed line is the more 
coarse grid and the solid line is the fine grid, showing that the error is now going to 
zero. Furthermore, plotting the logarithm of the error at the final time as a function 
of the number of modes (fig. 4.6), gives a relatively straight line. Therefore, we have 
shown that the time-dependent solution converges exponentially with the number 
of modes, N . This is interesting since a rigorous proof for this behavior does not 
exist for the Navier- Stokes equations. 

At each time step in the calculation, several other diagnostics are computed in 
addition to the impulse. The circulation, given by 

/ CO /* CO 

/ u dy dx (4.2.2) 

-oo Jo 

is compared to the input value for thin rings, and monitored over time. As the time 
becomes large, the circulation approaches zero due to diffusion of vorticity across 
the axis of symmetry, which cancels with that of the opposite sign. However, at 
early times the loss of circulation is exponentially small. 

As shown by Cantwell (1986) the initial forcing on the flow in the form of an 
impulse in space and time, transfers 2/3 of the impulse to the velocity field and 1/3 
to the pressure field. It is a simple matter to compute the integral of the velocity 
over the domain, 

H — I udV = 2tt I uydA (4.2.3) 

Jv J A 

where V is the volume of an infinite domain, and A is the area of the meridional 
half plane. Evaluating equation (4.2.3) does indeed give 2/3 of the impulse. This 
is primarily a check of the behavior of the velocity field at large distances. 

The kinetic energy was computed and its rate of decay compared very well 
with the dissipation, which was computed separately from the velocity derivatives 
(see figures 5.1k and 5.11k). This showed that the viscous term was resolved and 
that the numerical dissipation (of either sign) introduced by time-integration errors 
was much smaller than the true viscous dissipation. This again indicates that the 
stability criterion is more stringent than the accuracy concern. One advantage of 
this behavior, is that any solution which is stable is also very accurate. 
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Figure 4.5. Navier-Stokes calculations with initial conditions ( a/R) 0 — 
0.35, (T/u) 0 = 100, and At = 0.0025, and variable number 

of modes where L — N: , N = 65, , N — 55; 

. /V = 45. 


Figure 4.6. The logarithm of percent error in impulse versus N at the 
final time (t = 0.00083) in figure 4.5. 






Chapter 5 
Results 


In the previous chapter we showed that for the numerically computed flow 
fields, impulse is conserved to high accuracy, and that it converges exponentially in 
space and second order in time. Furthermore, by comparing computations of the 
Stokes equations with the exact solution, we gained confidence that the method 
is formulated and implemented correctly. In this chapter, we will build upon that 
confidence by showing that the calculations agree with asymptotic theories for large 
time and small time motion: the Stokes limit and the limit of infinitesimal cores. 
Because the full nonlinear equations are solved, we observe the way in which the 
solutions approach the asymptotic solutions. 

To orient the reader, we will begin by showing a typical calculation of a single 
vortex ring at a Reynolds number, Re? , of 500. Vorticity contours and streamlines 
are plotted, showing details of core shape, shedding, and transport of vorticity with 
the core. Next, the asymptotic cases are discussed. The final section describes the 
computation of interacting vortex rings with Reynolds numbers of 1000 each. The 
vorticity contours illustrate the severe straining of the inner vortex through the first 
pass and merging of the two vortices during the second passage. 
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5.1 Evolution of a Single Vortex Ring 


In experiments, vortex rings are generated by impulsively forcing a column of 
fluid through a nozzle. The vortex ring forms from the rolling-up of the vortex sheets 
created by the boundary layer along the walls of the nozzle (Didden, 1979). After 
the initial transient behavior associated with this formation process is over, the 
dominant parameters of the flow are T /v , and a/R. Although we are not equipped 
to calculate such a complex starting process, we can start with any smooth vorticity 
distribution (which satisfies the boundary conditions) and integrate the Navier- 
Stokes equations forward in time. As a first guess, we use a Gaussian distribution 
through the core, since locally (for a sufficiently thin core) it is the leading term in 
the Navier-Stokes equations (see section 3.5.2). 

Figures 5.1a. through 5.1g show vorticity contours for a typical solution with 
the initial conditions, a/R — 0.35 and Re? = 500. The contour levels are the 
same for each figure. The solid lines denote high levels and the dashed lines are low 
levels (the difference between the solid lines is a factor of 10 larger than between 
the dashed ones; the outermost dashed contour is l/100 i/l of the innermost solid 
contour in figure 5.1a). Two families of contours were needed to display the behavior 
in the core and in the tail on the same plot. In figures 5.1h and 5.1i, time-histories 
of the global quantities, ring speed and circulation, axe shown. The solid dots in 
figure 5.1h correspond to figures 5.1a through 5.1g. Figures 5.1j and 5.1k are the 
time-dependent histories of the diagnostics, impulse, and diffusion shown together 
with the rate-of-change of energy. 

The vorticity is positive (counterclockwise), therefore, the ring convects to the 
right under its own induced velocity. Note that the peak vorticity decreases rapidly 
from the initial condition in the first few frames. The vorticity is diffusing outward 
from the core, as seen from the lowest contour levels. When the vorticity reaches 
the axis of symmetry, it cancels with vorticity of opposite sign across the axis, and 
circulation decreases. This is reflected in figure 5.1i, where the initially constant 
circulation begins to drop off rapidly at the time corresponding to figure 5.1c. 

The core starts out circular (fig 5.1a) and after traveling a short distance, 
adjusts to a more elliptical shape (fig 5.1b) through its own self-induced strain. 
Evidence of this transient behavior is seen in the ring speed history of figure 5.1h, 
where the ring initially speeds up before it begins to decelerate. If the initial core size 
were made sufficiently small, this transient effect would no longer appear because the 
Gaussian core would be very close to the natural solution. Because of this initial 
unsteady behavior, the wake of vorticity is swept upward. For later times, the 
vorticity contours show a quasi-steady distribution (nearly steady in a translating 
frame) with a shape that is reminiscent of Norbury’s family of steady, inviscid vortex 
rings. 

Figures 5.1a' through 5.1g' show instantaneous streamlines (in a translating 
reference frame) on top of the vorticity contours shown previously. Note the dividing 
streamline separating the fluid which is carried with the core of the vortex and the 
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fluid which is left behind at a given instant. Because the flow is unsteady, the 
streamlines differ from the pathlines and streaklines, and care must be used in 
discussing the time-dependence given an instantaneous picture. The observations 
seem to be in agreement with Maxworthy’s heuristic model (1972) where vorticity 
diffuses across the dividing streamline and is carried downstream to form a wake. 
The wake however, does not extend very far behind the ring before it is annihilated 
by viscous diffusion. Including a passive scalar in the calculation would be useful 
to clearify this process. 


0.5 0.5 1.5 2.5 
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Figure 5.1a. 


Figure 5.1. The evolution of a single vortex ring starting from initial 
conditions of a/R — 0.35, T/v = 500. (a)-(g): Vorticity 
contours at several instants in time. The change in vorticity 
between solid contours is a factor of 10 larger than between 
dashed contours. For lines of the same type, the vorticity 
varies linearly. (a')-(g'): Instantaneous streamlines in a 
translating reference frame plotted on top of the vorticity 
contours of figures 5.1a-g. (h) Ring speed versus time, 
(i) Circulation versus time, (j) Impulse versus time (k) Rate 
of change of energy and dissipation versus time. 
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Figure 5.1a r -g r . Instantaneous streamlines in a translating reference frame 
plotted on top of the vorticity contours of figures 5.1a-g. 
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Figure 5.1c'. 
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5.2 Asymptotic Results 

In this next section, asymptotic solutions are considered. Irrespective of the 
initial condition, the flow will come back to rest after a long period of time (since 
the kinetic energy necessarily decays). We are interested in the rate at which this 
happens, and whether or not it depends on the history of the flow (i.e. such as the 
initial conditions). We are also concerned with the asymptotic solution as the core 
radius becomes infinitesimal. In particular, by solving the full nonlinear equations 
we want to determine the effect of core size and Reynolds number on the vortex 
ring propagation speed. 


5.2.1 Large Time 


As described above, a bubble of vorticity surrounds the vortex core and travels 
with it. Due to viscous diffusion, irrotational fluid is entrained into the bubble 
as it propagates, the bubble grows, and the ring slows down. The vortex ring 
asymptotically comes to rest, and the vorticity spreads to the far field with the 
viscous length scale, y/ut. At this point, the viscous effects have overtaken the 
nonlinear convection effects. The way in which this occurs and its dependence on 
the initial conditions is the subject of this section. 

The appropriate Reynolds number for this flow is 


Re i — 


(i/p ) 1/2 

.w 1 / 2 



(5.2.1) 


where tj corresponds to the virtual time when the ring was started from an im- 
pulsive, point force (Cantw*ell, 1986). Note that as the time becomes larger, the 
Reynolds number becomes smaller. 

The limiting behavior of the Navier-Stokes equations as t — ► oo is found by 
substituting the similarity form of the Stokes variables 
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(5.2.2) 


into the Navier-Stokes equations, simplifying, and grouping the remaining parame- 
ters to form a Revnolds number. Then, taking the limit as Re — ► 0 , gives the self 
similar form of the Stokes equations: 


llu _ Ui^Ei + ^L- d ' 2 Ui 

2 ’ 2 dr], drji dt], dp, 


(5.2.3) 
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(Cantwell, 1986). The solution of equation (5.2.3) is the Stokes vortex ring given 
by equation (3.7.1). The vorticity distribution of this solution is fixed in space. 

By dimensional arguments, we expect that the Stokes vortex ring is drifting like 
3 /2 . Indeed this behavior was experimentally observed by Kambe and Oshima 
(1975). In this paper, they also attempted (without success) to extend the Stokes 
solution to second order. In a successful attempt to extend the Stokes solution to 
second order, Rott &: Cantwell (1987) found that it was necessary to add a drift to 
the Stokes solution in the form of a modified independent variable: 771 , 
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x 


v 




(5.2.4) 


where the constant, 1 D, is required to be 
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(5.2.5) 


in order for the second order solution to exist. The drift velocity is therefore given 
by 

U = Dt -3/2 (5.2.6) 

Note that the length scale associated w'ith the drift is of lower order than the length 
scale of the vorticity due to viscous diffusion. 

We are now in a position to compute the flow field and observe the effects of 
the initial conditions on the limiting behavior. The simplest initial condition, the 
Stokes solution, has only one independent parameter, the Reynolds number (or the 
elapsed time, ij). Unless the Reynolds number is much smaller than one (i.e. very 
large tj), the solution is outside the range of validity of the Stokes equations and 
the nonlinear terms affect the solution. As a result, higher modes are excited (than 
the dipole). After a sufficient passage of time, the viscosity damps these higher 
modes and the solution returns to the Stokes distribution of vorticity. Because 
the Stokes solution is self-similar in time, there is a frame of reference in which it 
is steady - contours of ZJt~ with the coordinates rf\fvi , in a frame of reference 
which is translating with the speed of the ring. This is convenient for observing 
the departure from the Stokes solution and the subsequent return to it. Unless 
otherwise mentioned in this section, these are the contours and axes plotted. In 
addition, for each case we plot the drift, Ut , as a function of time. 

The first case considered is the Stokes solution, at an initial Reynolds number, 

—9 

Re/ 0 , of 30. Vorticity contours (uTU) in the meridional half plane are shown in 
figures 5.2a through 5. 2d, and the time dependent drift is shown in figure 5.2e, with 
symbols corresponding to the vorticity plots. In the first frame we see the Stokes 
solution (fig. 5.2a), which is symmetric fore and aft. By solving the Navier-Stokes 
equations, we get the solution at a later time, figure 5.2b. This figure shows that the 
peak has moved faster than the surrounding vorticity, and through the nonlinear 
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term, the symmetry has been disturbed. Futhermore, the quasi-elliptic core is tilted 
to an angle with respect to the axis of symmetry. At a later time (fig. 5.2c) the 
vorticity distribution is becoming more Stokes-like and finally (fig 5. 2d) it returns 
to the Stokes solution. The corresponding drift starts out at the constant D c , and 
quickly deviates. By the time the solution appears to have returned to the Stokes 
solution (fig. 5. 2d), the drift has returned to D c to within plotting accuracy. 

In the next case, Rej 0 is 40. The vorticity contour plots (fig 5.3a through 5.3d) 
are qualitatively similar but the initially higher Re ring initially moves faster, and 
the vorticity gradients are larger. Again, the solution asymptotically returns to the 
Stokes vortex ring (fig 5.3d). From figure 5.3e, we see that U t ' initially deviates 
dramatically from D c , and then begins to return. In contrast to the previous case, 
Ui 3/2 overshoots, and returns to D c asymptotically from below. An analogy can 
be drawn between this and a damped spring-mass system where increasing the 
Reynolds number is analogous to decreasing the damping. 

Next, we begin with two Stokes distributions at Re — 2 each (fig. 5.4). The 
two rings merge with very little influence from the nonlinear term (no noticeable 

_ / o 

asymmetry). For this case the initial drift, Ut , is different from D c . (Here, 
there is some arbitrariness in the choice of the origin of time. However, for large 
enough times, this effect becomes insignificant.) After some time, the flow goes to 
the single Stokes vortex ring with the same Stokes drift, D c , as the previous cases 
(the impulse used is that of the two rings combined). 

Figure 5.5 shows a starting condition of a single thin ring with an initial 
Reynolds number, Re r 0 , of 150 and a/R = 0.25. Figures 5.5a through 5.5d show 
the usual contours in the Stokes coordinates. For comparison, figures 5.5a' through 
5.5 d ! , show vorticity contours at the same times in stationary physical coordinates. 
Note that the ring travels a fixed distance, and at large times, the flow at the origin 
is uniform. The drift at large times also asymptotes to the same value as the above 
cases, D c . 

The value of D c found by computations is 0.003703 which matches to four 
significant digits the value in equation (5.2.5) determined by Rott. 

In summarv, the results for the large time behavior show that flows with several 

' _ _ _2 

different initial vorticity distributions approach the same steady solution for lj t 

in a frame of reference which is translating at the ring speed and expanding with 

viscous diffusion, r/y/vt. The asymptotic solution (in this translating frame) is 

the Stokes solution. Furthermore, the centroid of the vorticity drifts at a speed, 

U = 0.003703 regardless of the initial condition. Finally, the accuracy of the 

computations is further confirmed by the agreement to 4 significant digits between 
the computed drift and that obtained from theory by Rott. 
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Figure 5.2. Navier-Stokes calculation starting with a Stokes vorticity 
distribution at a Reynolds number of 30. (a)-(d) Contours 
of lJ t~ in a frame of reference translating with the ring 
speed which is also expanding, (e) Time history of ring 
speed where dots correspond to the times shown in figures 
faWdV 
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Figure 5.3a. 
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Figure 5.3b. 


Figure 5.3. Navier-Stokes calculation starting with a Stokes vorticity 
distribution at a Reynolds number of 40. (a)-(d) Contours 
of UJ t~ in a frame of reference translating with the ring 
speed which is also expanding, (e) Time history of ring 
speed where dots correspond to the times shown in figures 
faWdb 
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Figure 5.3c. 



Figure 5.3d. 



Figure 5.3e 
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Figure 5.4a. 
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Figure 5.4b. 


Figure 5.4. Navier-Stokes calculation starting with an initial condition 
of two Stokes rings at a Reynolds numbers of 4 each. 
(a)-(d) Contours of uJ t in a frame of reference translat- 
ing with the ring speed which is also expanding, (e) Time 
history of ring speed where dots correspond to the times 
shown in figures (a)-(d). 
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Figure 5.5a. 



Figure 5.5b. 


Figure 5.5. Navier-Stokes calculation starting with an initial condition 
of a thin ring, a/R = 0.25 and V jv — 150. (a)-(d) Contours 
of UJ t“ in a frame of reference translating with the ring 
speed which is also expanding, (a’)-(d’) Contours of uJ in 
a fixed frame of reference, corresponding to figures (a)-(d). 
(e) Time history of ring speed where dots correspond to the 
times shown in figures (a)-(d) and (a’)-(d 1 ). 
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Figure 5.5c. 




Figure 5.5e. t 
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5.2.2 Small Time 

In 1970 SafFman extended the theory for the propagation speed of steady invis- 
cid vortex rings (Fraenkel, 1970) to that of unsteady vorticity distributions, resulting 
from the presence of viscosity. The underlying assumption in SafFman’s theory is 
that the core radius is vanishingly small (a 2 << R 2 ). In addition, he suggests 
a general definition of ring speed in a three-dimensional unsteady flow, which has 
many merits (and it is a vital step in the theory). In this section, computed solu- 
tions of the full Navier-Stokes equations in the thin ring regime are compared to 
the theory. Motivations for this study are: to provide a check to the code, to assess 
the range of validity of the theory, and to determine the next order correction to 
the theory. First, we describe the theory, next we expound the interesting issues, 
and then discuss the results. 


Saff man’s Theory 


Since the flow is not steady in any reference frame, it is necessary to define 
what is meant by the velocity of the ring. For three-dimensional unsteady flow, 
SafFman used a centroid defined by 




rxw-I 

P 


r dV 


(5.2.7) 


where r is the position vector relative to some fixed point, 
therefore 



The ring speed is 


(5.2.S) 


SafFman’s formula is easily checked for several special cases where (5.2.7) reduces 
to the obvious centroid: a pair of rectilinear line vortices, a vortex ring with an 
infinitesimal cross section, and Hill’s spherical vortex. Also note that the denomi- 
nator, impulse, is the fundamental conserved quantity. Therefore, X is the centroid 
of impulse elements. For axisymmetric flow, equation (5.2.7) reduces to 


X = 


f uj x y 2 dA f u) x y 2 dA 
f uy*dA = 7 


(5.2.9) 


where the position of the point in the flow defined by X is independent of the 
reference point defining the origin. 

SafFman showed that the vorticity distribution, to first order, is Gaussian in 
the limit of small cores. Furthermore, the length scale associated with the core is 
{Avtx') 1 /' 1 where v is the kinematic viscosity and tr is the time since the ring was 
concentrated on a circular line. With this, he found that the propagation speed of 
a viscous vortex ring, valid in the limit of i /pfR 2 — > 0, is 


U = 



— 0.55S + 0 




(5.2.10) 




5.2 Asymptotic Results 


69 


It is interesting to compare this result with the propagation speed of a thin 
core with uniform vorticity in an ideal fluid, 


U = 


r 

47 rR 



a 



(5.2.11) 


known as Kelvin’s formula (Lamb, 1945). The viscosity does not affect the logarith- 
mic leading term, and the core radius, a, is replaced by a time dependent length 
which measures the size of the viscous core, (4i/£r) 1//2 - 


Issues 


As mentioned above, an assumption in the theory is that the vorticity distri- 
bution in the core is locally, a two-dimensional Gaussian. This is affected by the 
ring curvature. To be precise, the viscous term expressed in Cartesian coordinates 
is 


v 


vVuiy = — 

y 


+ 


dx 2 dy 


1 d_ 

y dy 


u 4>y 


(5.2.12) 


A local solution is a two dimensional Gaussian when the curvature term (last term 
on the right hand side of eqn. 5.2.12) is neglected. We are interested in quantifying 
the effect on the propagation speed with this term included, as well as the curvature 
in the convective term. 

Although it is not discussed by Saffman, there exists a one-parameter family 
of solutions even with vanishing initial core radius. The parameter is the Reynolds 
number, Re p = T/V, which is independent of core size. The question arises there- 
fore, as to whether or not equation (5.2.10) is uniformly valid and how the ring 
speed depends on Rep ■ For clarity, equation (5.2.10) is written as 


if 


vt r 
~R? 


< A, 


then 


Udiff 


< B x 


,vtT \ 1/2 
Kri) 




(5.2.13) 


Here Udiff is the difference between equation (5.2.10) and the ring speed defined by 
equation (5.2.7) and (5.2.8) and computed in the Navier-Stokes code. A is, roughly 
speaking, the range of validity of the approximation, and B is the proportionality 
constant. They are not unique (one can trade between A and B ), but for a given A 
there is a minimum value R min . The most relevant quantity is the limit of R min (-4) 
as A — ► 0. If equation (5.2.13) holds, this limit is finite. Furthermore, A and B 
depend on Re ? . If B is finite over the range 0 < Rep < oo then the error estimate 
is uniform. 

There are several limits being taken at once. We are interested in the limit as 
i/tf /R 2 —> 0, while Rep — ► 0 and Rep — ► oc . Computing flows in the limit Rep — + 0 
is easy, the other two limits are not. Unfortunately, we are not able to compute 
the flow at £p = 0 when the vorticity is concentrated on a line, preventing us from 
strictly observing the behavior in the limit as utr / R 2 0. This is not a serious 
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problem, however, if we can start with sufficiently thin rings. As Saifman argued, 
after a sufficient amount of time has passed (from the initial condition), the only 
parameters remembered are the ring size, R, and the circulation, F. By starting 
with several initial core sizes, (^r)o 7 the time dependent flow should collapse to the 
solution which would be followed if the initial core were infinitesimal. The limit as 
Re? — ► oo is also not possible with this code because of the time step restrictions 
related to the explicit scheme applied to the nonlinear term. Still, a sufficient 
number of cases are considered at fairly high Re p to give a good indication of the 
high Re p behavior. 


Results 


We are looking for small differences, so diagnostics are very important. The 
usual diagnostics monitored axe impulse, circulation, energy and dissipation. The 
most difficult case is the thinnest ring at the highest Re r , giving an upper bound 
for the errors. The impulse was accurate to within 0.02% for the duration of these 
computations. Because the theory applies only for thin rings, it is assumed that 
the loss of circulation is exponentially small. Computations are stopped, therefore, 
when the circulation is 99% of the initial value, giving a conservative upper bound. 
The rate of decay of kinetic energy compared very well with dissipation, which was 
computed separately from the velocity derivatives. This shows that the viscous term 
was resolved and that the numerical dissipation introduced by the time integration 
errors was much smaller than the viscous dissipation. In addition, the “effective 
radius,” defined by 


n _f± yudxdy 
f J to dx dy 


(5.2.14) 


was shown both analytically and numerically (to leading order) to vary like 
dR 2 e ff/dt — —2u. This is related to the spreading of the core and, like the ki- 
netic energy, is a fine measure of the effect of viscosity. 

Figures 5.6 through 5.9 correspond to Reynolds numbers of 0.01, 50, 100, and 
200. In each case, two plots axe shown. The first plot, labeled (a) displays the 
asymptotic theory (eqn. 5.2.10) and four different initial core sizes (a/R = 0.12, 
0.15, 0.25, 0.35). The initial conditions axe indicated by solid dots. Keep in mind 
that each initial condition is a Gaussian vorticity distribution and that the core is 
circular. The lines represent the time history of the ring speed. 

In figure 5.6, Re? is nearly zero (Rer = 0.01). Therefore, the effect of the 
nonlinear term is very weak and the vorticity remains nearly Gaussian as it spreads 
(as seen in the results of the previous section). As mentioned above, however, the 
axisymmetric vorticity is not exactly Gaussian due to the curvature term in equation 
(5.2.12). The ring speed indicates that the vorticity is nearly Gaussian as predicted 
by Saffman, since the time histories of the initially thinner rings pass right through 
the symbols corresponding to two-dimensional Gaussian initial distributions with 
larger cores. In other words, the curvature effect is very small. 
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By plotting the difference between the velocity given by the asymptotic theory 
and that from the computations, Udiff, the ordinate is greatly expanded. Figure 
5.6b shows the same data (as shown in figure 5.6a) of Udiff and an abscissa of 
— (utp/R 2 ) In^vtp/R 2 ) 1 / 2 (the reason for this form is discussed later). Now the lines 
are distinguishable, and we can see that the curves merge at later times, however, 
the differences between the time histories of various initial core sizes is small. At 
higher Re p , this will no longer be the case. 

Figure 5.7 is a similar case except that Re p =50. In figure 5.7a, the solid 
dots show the intial conditions and the lines leaving them are the time histories of 
the ring speed from the initial condition. Again, the asymptotic theory is shown 
for comparison. On this scale, the differences are difficult to distinguish, so we 
again plot the results in the expanded view of figure 5.7b. The (lighter) solid line 
corresponds to the Re r = 0.01 case for comparison, which starts from the initial 
core size, a/R — 0.12. Because the velocity is normalized by F, the initial condition 
does not change from the previous case (fig. 5.6). From this figure, we can test the 
hypothesis that the solution at some time does not depend on the initial conditions. 
The curves corresponding to the four different initial core sizes form an envelope, 
which represents the correct solution if we were able to start with an infinitesimal 
core. This claim is further substantiated by figures 5.8b and 5.9b where the Reynolds 
numbers are 100 and 200. In the Rep = 200 case we see that the envelope formed 
can be approached from either side. To reiterate, by starting with the thinnest 
possible core, the transient associated with imposing the Gaussian core as an initial 
condition is smallest (since in the limit of a/R — » 0, the Gaussian is to first order 
correct). By considering several different initial core sizes, we axe able to isolate the 
effect of this transient and see at what point the envelope of the curves forms. This 
envelope corresponds to the solution which would result if we were able to start 
with an infinitesimal core. 

The results of figures 5.6 through 5.9 are summarized in the next three figures, 
along with two cases for higher Rep (400 and 800). Figure 5.10 shows a plot of ring 
speed as a function of time for several different Reynolds numbers, compared to 
the asymptotic theory. The initial core sizes for all of these cases axe a/R = 0.12, 
and because the ring speeds axe normalized by T , the initial velocities collapse. 
Bracketing the results is the asymptotic theory on the top which is labeled as such, 
and on the bottom is the nearly zero Rep case shown by a thick solid line. The 
Re p = 50 case is distinctly shown by a long dash line, and the rest of the Rep cases 
are more or less on top of one another. This suggests that the zero Rep case has the 
largest disparity from the asymptotic theory at finite cores and that the normalized 
ring speed at high Rep is independent of Rep . Again it is helpful to expand 
the picture, so that small differences axe more apparent. In figure 5.10b, we show 
Udiff plotted versus Saifman’s error estimate, (i stp/R 2 ) 1 / 2 \n(vtp / R 2 ) 1 / 2 for each 
of the cases shown in figure 5.10. Note all of these curves are tending to zero faster 
than linearly, indicating that Saffman’s error estimate was conservative. By trial 
and error, we came up with an improved error estimate, ( utp/R 2 ) \n(vtp / R 2 ) 1 / 2 . 
Plotting the curves versus this function of time (fig. 5.10c) we see that at zero 
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i?ep, Udiff is nearly linear. From the slope of 0.42, we then have a correction to 
the asymptotic theory of (5.2.10) which shows the effect of a finite core size and 
of curvature. For higher Rer , the curves are no longer linear, but this previous 
correction gives an upper bound. The transient behavior is also more apparent in 
this coordinate system. 

In summary, the numerical results are in full agreement with Saifman’s the- 
ory. Furthermore the error at Re = 0, and probabl y at all Reynolds numbers, is 
smaller than Saffman’s own estimate by a factor \Jvt? / R 2 . The new error esti- 
mate holds until the diffusion of viscosity across the axis becomes significant. There 
is an indication that as Re approaches either 0 or oo, the velocity approaches a 
limit which is only a function of the time in viscous units (i/fp/i? 2 ). Finally, the 
procedure of starting the simulation at a finite time (i/tp/jR 2 )o and taking the limit 
(vtr f R 2 )o —• ► 0 is valid, and our method allowed us to start with thin enough rings 
to observe the asymptotic behavior. 
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Fisrure 5.6a. 


equation (5.2.10) 


Figure 5.6b. 


Figure 5.6. Propagation speed versus time for vortex rings of strength 

Rer = 0.01, initial core sizes vary: , ( a/R) 0 — 0.12 

, ( a/R) 0 - 0.15; , ( a/R) 0 = 0.25; , ( a/R) 0 = 

0.35. The solid dots are the initial conditions, (a) Compar 
ing computation with theory, versus time, vtr / R 2 ■ (b) Dif 
ference between computation and theory, versus 
(i/tr/R 2 ) ln^ir/i? 2 ) 1 / 2 . 
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Fisrure 5.7a. 


Figure 5.7b. 


Figure 5.7. Propagation speed versus time for vortex rings of strength, 
Rer — 50, initial core sizes vary: — — ( a/R) 0 = 0.12; 

- - (a/R) 0 = 0.15; , (a/R) 0 = 0.25; , ( a/R) 0 = 

0.35. The solid dots are the initial conditions, (a) Compar- 
ing computation with theory, versus time, vtr/R 2 . (b) Dif- 
ference between computation and theory, versus 
(utr/R 2 ) ln^tr / R 2 ) 1 / 2 . 
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Figure 5.8a. 


Figure 5.8b. 




Figure 5.8. Propagation speed versus time for vortex rings of strength. 

Rer = 100, initial core sizes vary: , ( a/R) 0 — 0.12; 

- - (a/R) 0 = 0.15; , (a/R) 0 = 0.25; , (a/R) 0 = 

0.35. The solid dots are the initial conditions, (a) Compar- 
ing computation with theory, versus time, utr/R 2 • (b) Dif- 
ference between computation and theory, versus 
(; ut r /R 2 ) ln^tr/R 2 ) 1 / 2 . 
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Figure 5.9a. 


equation (5.2.10) 


Figure 5.9b. 




Figure 5.9. Propagation speed versus time for vortex rings of strength, 

Rer = 200, initial core sizes vary: , ( a/R) 0 — 0.12; 

- - -, (■ a/R) 0 = 0.15; (a/R) 0 = 0.25; , (a/R) 0 = 

0.35. The solid dots are the initial conditions, (a) Compar- 
ing computation with theory, versus time, vt? / R 2 . (b) Dif- 
ference between computation and theory, versus 

(utr/R 2 ) \n(vt r /R 2 ) lf2 . 
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vtp/R 2 


Figure 5.10a. 


Figure 5.10. Evolution of vortex rings with ( a/R) 0 — 0.12 and differing 

Re p: , Rep — 0.01; , Rep = 50; , Rep — 

100; , Rep = 200; , Rep = 400; , Rep = 800. 

The solids dot are the initial conditions, (a) Comparison 
of computed ring speed and theory (eqn/ 5.2.10), which 
assumes (a/R) 2 << 1. (b) Difference between computed 
ring speed and theory versus (vtp / R 2 ) 1 / 2 \n(utp / R 2 ) 1 ^ 2 . 
(c) Difference between computed ring speed and theory" ver- 
sus {vtp/R 2 ) ln(vtp / R 2 ) 1 / 2 . 




0.03 


0.02 - 

Udiff 

0.01 - 

0.00 - 

- 0.01 - 
0 

Figure 5. 

0.035 r 
0.030 - 
0.025 - 
0.020 - 
^ dt ff 0.015 - 
0.010 - 
0.005 ■ 
0.000 
-0.005 

( 

Figure 5 


78 









5.3 Leapfrogging of Two Vortex Rings 


79 


5.3 Leapfrogging of Two Vortex Rings 


There has been some debate in the literature about the nature of interacting 
vortex rings, in particular, whether or not the classical leapfrogging of inviscid rings 
could be realized in viscous flows before the vorticity merged due to viscous effects 
(Oshima et al ., 1975, Maxworthy, 1979, Yamada Sz Matsui, 1978, 1979). Using 
a smoke wire stretched across the exit of a vortex generator, Yamada &; Matsui 
(1978, 1979), showed the passage of smoke marking the fluid and a subsequent 
merging of the smoke during the apparent second passage. Furthermore, they stated 
that three or four slip-throughs were observed by Oshima et al. (1977). Because 
vorticity diffuses more rapidly than smoke, however, it is quite possible that the 
smoke can indicate a successful passage while the vorticity simply merges (Oshima 
et al . , 1975). Below, vorticity contours are plotted for a Navier-Stokes calculation of 
two rings with an initial separation distance of one ring radius. The results do show 
a successful passage before merging. The effects of convection and diffusion on the 
interactions are distinguished through a qualitative comparison of the Navier-Stokes 
calculation with an Euler calculations of a similar case by Shariff (1987). 

With vorticity of the same sign and with the initial conditions, Rer = 1000 
and a/R — 0.1 each, two rings are seen leapfrogging in figure 5.11. In figures 
5.11a through 5.1 lg, the contours are of u7, and figure 5.11h shows the propagation 
velocity of the total vorticity centroid (defined by eqn. 5.2.7 and 5.2.8) as a function 
of time. As in figure 5.1, the contour levels are the same throughout the simulation, 
where the higher vorticity levels are shown by thick lines and the lower vorticity 
levels are shown by thinner lines. As before, the difference in vorticity between the 
thick lines is a factor of 10 larger than the difference between the thinner lines. For 
ease of discussion we will name the rings: the ring which is initially on the right is 
referred to as Rl, and the ring initially on the left is R2. 

Because cores are very thin, the contours in figure 5.11a are indistinguishable. 
The outermost contour is l/100 t/l of the initial peak vorticity (there are 10 thick 
and 10 thin contours lines). In the second frame (Fig. 5.11b), the peak vorticity 
has decreased roughly 60% and 70% of the initial value for Rl and R2, respectively 
(i.e. 4 thick lines remain for Rl, and 3 for R2). 

At the initial time of the calculation (Fig. 5.11a), Rl and R2 induce ve- 
locities on each other perpendicular to the axis of symmetry; Rl stretches while 
R2 contracts. Considering inviscid flow, by Helmholtz’ laws, D(u } R)/ Dt = 0 or 
D(uS)/Dt = 0, where 5 is the cross sectional area of a vortex tube. From this, 
we would expect that u> ~ R and S ~ 1/R. Figure 5.11b shows that we indeed 
see the correct trend - Rl has a higher peak than R2 and a smaller core. The 
interactions continue and R2 catches up with Rl in figure 5.11c and has passed it 
in figure 5. lid. Note that R2 shows straining from the passage: it develops a tail- 
like structure (Fig. 5. lie) which then pinches off (Fig 5. Ilf). Starting from figure 
5. lie, the process repeats from the beginning where R2 is now the leading ring and 
Rl is trailing. Because of the first passage and the viscous effects, the rings are 
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significantly fatter and their cores are closer together than they were initially and 
the second passage is unsuccessful (R1 merges with R2). 

It is interesting to note that the velocity of the vorticity centroid oscillates 
as the rings pass, with the maximum speed occurring when the rings have the 
same radius and a minimum speed occurring when their centroids axe at the same 
x- location (see figure 5.11h). 

The qualitative behavior is similar to the smoke visualizations of Yamada & 
Matsui (1978), however, it isn’t very useful to compare the results in detail since the 
smoke is not marking the vorticity (especially since smoke is not only ejected into the 
vorticity layer but is across the entire jet diameter). A passive scalar is needed in the 
calculation in order to make a comparison with this type of experiment useful. It is 
quite interesting, however, to compare the viscous calculations with similar inviscid 
results of SharifF (1987). Shariff solves the Euler equations using contour dynamics 
for two rings of the same initial separation distance. The vorticity distribution in 
the core for the two calculations are necessarily different. For the contour dynamics 
formulation, it is assumed that the vorticity is uniform (constant w/y) and that it 
is zero outside the core radius. In the viscous calculation we start with the usual 
Gaussian vorticity distribution. Furthermore, the initial core-to-ring radius for the 
contour dynamics case is 0.18. The comparisons, therefore, are qualitative. Figure 
12 shows vorticity contours for the two calculations at similar times. The figures 
are shown on the same scale. In figures 12a and 12a', the core shapes are very 
similar. As the passage progresses the straining of the ring which passes inside the 
first shows remarkable agreement for the viscous and inviscid calculations. From the 
viscous calculation however, the cores are diffusing and the cores are closer together 
after the passage than the initial separation. The result is that the second passage 
of the viscous calculation shows merging or pairing. 

In summary, leapfrogging was observed for two rings with initial Rep of 1000 
each, an initial separation distance of one radius, and initial a/R’s of 0.1. Through 
the first passage, the trailing ring was severly strained due to the inviscid straining 
field, and a tail forms which eventually pinches off. Because of the viscous effects, 
the ring which was initially in front merged with the other in an attempted second 
passage. 
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Figure 5.11. Evolution of two vortex rings of the same sign, each with 
Rer 0 — 1000 and (a/i2) 0 = 0.1. (a)-(g) Vorticity fields at 
several instants in time. The change in vorticity between the 
thick lines is a factor of 10 larger than between the thinner 
lines. Between lines of the same type, the vorticity varies 
linearly, (h) Ring speed versus time, (i) Circulation versus 
time, (j) Impulse versus time (k) Rate of change of energy 
and dissipation versus time. 
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Figure 5.1 lj. Impulse versus time, computed by a multipole expansion 
( ) and computed using Gauss Quadrature ( ). 
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Figure 5.11k. Rate of change of energy ( ) and dissipation (+) versus 
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Figure 5.12a. Navier-Stokes calculation (same as fig. 11); ( a/R) 0 = 0 
Gaussian vorticity in core. 


Figure 5.12a'. Euler calculations of vortex rings by Shariff (19S7); 
( a/R) 0 = 0.18, uniform vorticity in core. 
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Figure 5.12b. Navier-Stokes calculation (same as fig. 11); ( a/R) 0 = 0.1, 
Gaussian vorticity in core. 



Figure 5.12b'. Euler calculations of vortex rings by Shariff (1987); 
( a/R) 0 — 0.18, uniform vorticity in core. 
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Figure 5.12c'. Euler calculations of vortex rings by Shariff (19ST) 
( a/R) 0 ~ 0.1S, uniform vorticity in core. 






Chapter 6 
Concluding Remarks 


6.1 Summary 

A spectral method was developed which solves the incompressible Navier-Stokes 
equations in an unbounded domain. In particular, the flow of interest is that of 
vortex rings and their interactions. Because the the domain is infinite, and regions 
of large gradients vary both temporally and spatially, this a more difficult problem 
than those to which spectral methods are typically applied. The method is based on 
divergence-free basis functions. A set of functions was developed satisfying several 
constraints. In particular, each function is divergence-free. The solution is smooth 
everywhere and the functions combined represent the correct decay of vorticitv at 
infinity. In addition, with the particular choice of functions, the linear terms in 
the matrix equations (resulting from numerically approximating the Navier-Stokes 
equations) are orthogonal (ie., diagonal) in two coordinate directions and banded 
in the third. This is an important property when solving a three-dimensional, time- 
dependent problem such that the computational time is manageable. Furthermore, 
it is important in order to alleviate stiffness arising in flows where there is a large 
range of length scales (ie., high Re flows). 

Computations of axisymmetric rings demonstrated that the method works well, 
and that it is very accurate in computing rings over extended periods of time. 
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In contrast to most spectral methods (where typically the flow is assumed to be 
periodic) the flow was solved in an infinite domain. Several tests demonstrated 
that the far field was handled properly. The impulse, which is conserved in an 
infinite domain with confined vorticity, was shown to be conserved to very high 
accuracy. The drift at large times agreed with the analytic results of Rott (1988) 
to four significant digits. The arguments leading to the analytic drift are based 
on the behavior of the far field flow. The total integrated momentum was found 
to be 2/3 of the impulse (within several significant digits), as expected (Cantwell, 
1986). All of these are primarily a check of the behavior of the velocity at large 
distances. Other diagnostics showed that the solution was accurate. The energy loss 
was shown to be due only to the true viscous dissipation. The impulse was typically 
conserved to several significant digits. Convergence studies of impulse showed that 
the error in impulse does indeed go to zero properly as the time step is decreased 
(ie., second order) and the resolution is increased (ie., faster than algebraic). 

Computations were conducted over a wide range of Re. The algorithm devel- 
oped is able to compute flows from thin rings at high Re to large time (Re — > 0). 
Two kinds of asymptotic studies were performed. The first is the limit of thin cores 
in a time frame where very little vorticity is permitted to diffuse across the axis of 
symmetry (T % constant ), with Re^ as a parameter (0 < Re < oo). A common 
theme was observed. A universal solution is approached after the transients associ- 
ated with the starting condition have ended. For thin rings, it was shown that the 
propagation speed of rings with several different initial core sizes collapsed onto an 
envelope. That envelope corresponds to the time-dependent solution which would 
exist if the initial condition were given by an infinitely thin ring, and depends only 
on Re r . As expected, as Re p — > 0 the solution and envelope of propagation speed 
versus time is bounded. Furthermore, the vorticity distribution in the core is nearly 
Gaussian and simply spreads with time. A more surprising result was the apparent 
limit as Re — *• oo (note that we can only extrapolate finite- Rey results). For Re p 
greater than around 200, curves of propagation speed versus time (normalized by 
circulation and ring radius) collapsed. This means that a universal time-dependent 
solution (ie., vorticity distribution) is approached for viscous solutions at sufficiently 
high Re. 

The second asymptotic limit considered was t — ► oo or Re 0. Flows were 
computed until Re < 1 for several different initial vorticity fields. For all cases 
studied, the solution returned to the drifting Stokes solution. The constant of 
proportionality relating t and U was found to be independent of the initial 
condition. The large time solution, therefore, only remembers the impulse and 
kinematic viscosity. 

In computing the propagation speed for thin rings (where V ~ constant), an- 
other useful observation was made. The next order term was found to the asymp- 
totic theory of the propagation speed of viscous vortex rings (Saifman, 1970) for 
Re r = 0. Furthermore, this correction is observed to to be an upper bound for all 
Re's. With this result, the range of validity of the asymptotic theory is quantified 
for a/R as large as 0.35. 
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The computations demonstrated the behavior of viscous vortex flows not pre- 
dicted by inviscid models: shedding of vorticity into the wake of a propagating ring, 
and fusing of interacting rings. As postulated by experimentalists (Maxworthy, 
1972), vorticity is shed behind a propagating ring. When considering the interac- 
tion of two rings, we find that they are able to leapfrog. Furthermore, the effect 
of diffusion is to smooth the vorticity peaks caused by the straining field, and for 
viscous flow the rings will merge into one. 


6.2 Future Work 

Future work will involve extending the method to three dimensions. Studies 
can then be made of mode selection associated with azimuthal instabilities, vortex 
collisions and reconnections, and noise generation due to collisions. The addition 
of a straining field could also be considered. 




Appendix A 

Translating and Expanding Coordinates 


To compute rings over long time periods, it is very helpful to transform the 
equations to expanding and translating coordinates. The center of the coordinate 
system is translating with the centroid of the vorticity distribution (actually of the 
centroid of uy ). The rate of expansion of the coordinates is that of diffusion ( 

The transformation is chosen for convenience. We have transformed to some new 
equations, slightly different from the Navier-Stokes equations. The two terms which 
are not invariant are the scalar quantity, ($), and the velocity in the u x u term. 
In the new coordinates, the dependent variables refer to the fixed coordinates while 
the independent variables refer to the translating frame. This is of no consequence 
since the results are easily transformed back to the original variables for plotting 
and interpretation. In this appendix, the new equations are derived. 


In Cartesian tensor notation, the transformation is given by: 


~ _ (xi - Xi(t)) 
x ‘ = ' — 

t = log t 


~ — t1/2 

U{ =U{t 

0- , zzz (jJ i i 

p=pt. 


(.4.1) 


where is the centroid of the vorticity distribution, and its time-derivative is 

the ring speed: 


Ui(t) 


dXj(t) 

eft 




(.4.2) 
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In Cartesian tensor notation, the Navier-Stokes equations axe given by: 

du{ du{ dp d 2 U{ 
dt 3 dxj dx { dxjdxj 


(A3) 


The transformations are applied to equation (A. 3), one term at a time. Starting 
with the time- dependent term (A), substitute for the dependent variable, and apply 
the product rule: 


du{ d / Ui \ 1 du{ 1 __ 

= m VFv = F 5 jf Ui 


(AA) 


Next, the chain rule is applied to term D: 


du{ du{ dt du{ dxj 

. dt dt dt + dxj dt 


(A.5) 


Term E is given by: 


Term F is given by: 


dt d log t 1 

dt dt t 


dx ± _ d_ Uxj -JT ,-(*)) ! _ _ J_ ~ _ _ 1 _ 9Xj(t) 


dt dt 


2 1 3 7 1 / 2 dt 


(.4.6) 


(A.7) 


Combining the results from equation (A.5) and equation (A. 6 ), term D becomes: 

dui 1 dui 1 / dui\ 1 fdXi(t) dui\ , , 

eft ~ t dt 2 t\ Xj dxj) ft 2 \ m dxj ( j 

Using the chain rule, term B becomes: 

= (49) 

dxj *1/2 dx j 1 

Multiplying equation (A. 9) by uj and transforming to uj , the convection term is: 

_ dui _ 1 _ dui 

u, dxj fn U} sfxj 

Following equation (A. 9), the viscous term transforms to: 

— _ _L — ? —.• .. (4ii) 

dxjdxj fn dxjdxj y 1 
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Using the above results, the transformed governing equations are: 

1 f dui _ du{ _ dp d 2 Ui 
t 3 / 2 \ dt dxj dx{ dxjdxj 

+ i Zt + l( Sj m + fnfdx i (t)du i 


dxi 


dt dx 




(A.12) 


In vector notation, this becomes: 


du 


^ -f (u • V) u = — Vp + V 2 u 
dt 


+ Iu + |(x.V)u + (U.V)u 


(A.13) 


G H 

Next, vector identities are applied to term G and H . Term G is given by: 

(x • V) u = V(x • u) — (u • V) x —x x (V x u) — u x u x (V x x) (A. 14) 

u u ® 

Applying the same vector identity to H gives: 

(U . V) u = V(U • u) - (u • V) U -U x ( V x u) -u x u x (V x U) (A.15) 

o z 0 

Substituting equation (A. 14) and (A. 15) into equation (A. 13) gives: 

dxi 


dt 


-f (u • V) u — — Vp + V u 


+ ~u 4- i[V(x • u) — u — x x u] + [V(U • u) — U x uj] 


(A. 16) 


Applying the identity, (u • V) u = V(u • u)/2 — u x u;] , to equation (A. 16) gives the 
equations in expanding and translating coordinates which are solved numerically: 


du ~ ~ ~ 2 _ ~ ~ 

+ V$-V"u = u moJ x u 
dt 


(A. 17) 


where u mod and $ are given by: 


u mo d = u - - x - U 


$ = p i- u • u/2 — - x • u — U • u. 


(-■US) 



Appendix B 

Divergence-Free Basis Functions 


Vector spherical harmonics (VSH) comprise three vector functions which are 
in turn functions of scalar spherical harmonics (see Appendix C for their defini- 
tions and properties). These functions span the space of any vector function on 
the surface of a sphere, i.e. they form a complete set. To represent an arbitrary 
function in a volume, each of the three families of functions, X^ m (#, <^>), 

and W * m (0, 0), is multiplied by scalar radial functions, Fi lm (r,t), F 2em (r,t), and 
r 3 , m (r,f). 

U = E *i«m *) + F ( r > 4>) + i)W, m (5, *) (B.l) 

/ m 


To find the divergence-free set which is complete, substitute equation (B.l) into the 
continuity equation, 


v • u = E {V-(F 1(m X <m ) + V-(F 2;m V, m ) + V.(F 1( W h ) } = 0 (B.2) 

l m 


From the properties of VSH (Appendix C), V -(F(r)X* m ) = 0 for any function F. 
On the other hand, both V* m and W^ m contribute to V • u: 


0 = ko y; 


dFo, 

-t.m 

Tr 


(£ + 2 ) 


F 2 < m I + 


dF i, m _ (£ - 1 ) 

dr r 


Ft, 


■ (B.3) 
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where ) ly ^ 2 ’ an< ^ = (^^r) 1 ^ 2 * Divide equation (B.3) by k 2 Y™ (recall 

that the Y™'s are orthonormal) and factor both terms, 

-^2 Tr ( r ‘ +lF *«») + ^p=T+T^: J = 0 {BA) 

where k$ = Ari / A: 2 = (-^py) 1 / 2 . We wish to show that because of equation (B.4) the 
functions ft,. and Fz lm can be uniquely expressed in terms of one function, F^ m , 
such that F^(r)X^ m is a vector potential: 

Vx(F+ m (r)X, m ) =F 2 lm (F)V lm (e,^ + F 3 lm {F)W tm (ej). (B. 5) 


For the functional dependencies, F 2 (Tn (F^ n ) and i* 3 /m (F^) , see Appendix C. Fac- 
toring these, 


F 2im = 


<*r+ m £ f + 


dr 


txn 


3<, 


dr - <m 




^£ (rm ^ (r ’ 4)) - 


Substitute equation (B.6) into (B.4), thus eliminating 


^3 


* , 2 1(1 + 1 ) p+ 
dr 2 * - J_ - <m 


dr 


(r _e+1 F3, m ) 


r _ ^ +1 dr 


Note that k\/k^ — & 2 . Factor the left hand side of equation (B.8), 


r -*+i 


—21 


dr 


{r e+1 FD 


r —£+l 


(r- <+1 r 3(m ) 


And finally, integrate equation (B.9), 


i: 2 r -<-i -fL 7T+ i _ 


dr 


(r^J = F s<m , 


(B.6) 

(B.7) 

(B.3) 

(B.9) 

(B.10) 


which is in agreement with equation (B.7). Therefore, the complete set of three- 
dimensional divergence-free basis functions is 

u = *i~ (r, 0 X fm (<?, *) + Vx(F+(r, t)X, m (d, <«) (B.ll) 


with two scalar radial functions, F^ m and F . Using the continuity equation, we 
have reduced the number of radial functions (and time dependent coefficients) from 
three to two. 

Note that the — modes can also be interpreted as deriving from a vector 
potential, since 


Vx(F(r)V fm ) = i 


t 


2£ + l 


1/2 


dF , t + 2_ 
— 1 F 


X 


tm 


(B.12) 
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Limiting forms at large radius: 


lim (1 - {) 


lim £ = 1 


(C.5) 


Limiting forms at small radius: 


= i 

r — '0 


limf 

r — -0 


(C.6) 


Vector Spherical Harmonics 

Vector spherical harmonics (VSH), X^ m , V^ m , and W , form a complete 
set of vector functions on the surface of sphere. They are functions of scalar spher- 
ical harmonics which, in turn, are functions of Legendre polynomials and complex 
exponentials. With the aide of relatively simple expressions for their Laplacian and 
divergence, the divergence-free subset is extracted from the complete set (see Ap- 
pendix B). Furthermore, since the VSH functions are orthonormal, the mass matrix 
is completely decoupled in 6 and <j>. Because the Laplacian of a vector spherical 
harmonic function does not modify the angular dependence (see eqn. C.13), the 
viscous matrix is also completely decoupled in 6 and </> . Many of the relevant prop- 
erties of these functions are given below, and a more complete list is found in the 
paper by Hill (1953). 


Orthogonality properties of VSH (C and D are X* m , V^ m , or W^ m ): 

/*27T /*7T 

/ / C lm • (D £W )* sinOdedo = <!>CD 6 w 6 mm . 

Jo Jo 


(C.7) 


Definitions of VSH in terms of the scalar spherical harmonic, (Yj 71 ): 


V, m = ri - 


£ + 1 

4- 1 


1/2 


+ 9 


dY™ 


[(£ -f 1)(2€ -+■ 1)] 1/2 39 


+ <t> 


imYJ 


P + 1)(2£ + 1)1 I/2 sine 


(C.S) 


X 


tm 


—mY™ 


[£(£ + l)] 1/2 sin0 


+ 


dY 


[£(£ + l)] 1/2 de 


(C. 9) 
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W, m =sr 


2 £ + 1 


1/2 


Yi 


+ 9 


1 dY e ” 


+ 4> 


irnY t m 


[i(2t+ 1)] 1/2 sin^ 


(C. 10) 


Divergence and curl of X; m : 


V • [F(r)X, m ] = 0 


(C.ll) 


V x [F(r)X fm i 




/ t ' 

1/2 

rdF * j 
F 

\2f + 1, 


dr r 


-f i 


1 + 1 
2£ + l 


1/2 


d F 


V, m 

t + i 


(C. 12) 


dr 


+ 


W fm 


Laplacian of the product of VSH with an arbitrary radial function ( F ( r ) ) : 


V 2 [F(r)V <m ] = I m (F)V, m 

V 2 [F(r)X, m ] = £ f (T)X^ 

V 2 [f(r)Wj„] = £<_ 1 (F)Wc m 

a 2 23 1(1 + 1) 

e 3 2 r r 3r r 2 


Scalar spherical harmonics: 


(C.13) 


17"(M) = ©?(*)• 


( 2*) 1 / 2 


(C.14) 


er(«) 


2^ + 1 (^ - m)! 

2 (£ + m)'! 


1/2 




(C.15) 


Hill’s definition (1953) for the Legendre polynomials, differs slightly from 

that used here (i.e. by a factor of ( — l) m ). 
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Associated Legendre Polynomials 


Notation: = Q^ m (#) 

Weight function: w(x) — 1 
Domain: — 1 < fi < 1, fi — cos# 
Orthogonality: 



PP P F d/j 


2(t + m)\ c 
(2£ -f \)(i — m)! 


Rodrigues formula: 

p r (#0 = (i - ^) m/2 - 1 )' 

First few polynomials: 




m = 0 

m — 1 

m = 2 

£ 

= 1 


-(i -V) 1/2 

not defined 

£ 

= 2 

i(3 M 2 - 1) 

— 3/x(l — /^ 2 ) 1/2 

3(1 -P 2 ) 

* 

= 3 

- 3) 

-f(V-l)(l-/* 2 ) 1/2 

15^(1-^) 


Recurrence relations: 


(m - * - 1)P£ X + (2* + l)/iPr - (m + = 0 

Derivative relations: 


dQio 

d6 




t > l 


—j 1 = 1 {^ m+1 - (m + <)(< - ™ + D^r 1 } ; 


(C.16) 

(C.17) 

(C.18) 

(C.19) 
(C. 20) 


m > 1 


(C.21) 
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Shifted Jacobi Polynomials 


The shifted Jacobi polynomials, G „ , are similar to those defined in Abramowitz 
and Stegun (A&S), (1972, eqn. 22.2.2) with two important differences. First, in 
the notation of A&S, p = 2£ — 1 and q = £ — 1/2. Second, the polynomials 
are orthonormal with respect to the weight function, w(£). The properties are 
summarized below. 

Notation: G„, 

Weight function: = (1 — 

Domain: 0 < £ < 1 
Orthogonality: 

7 G£(0 GUO w(t)dt = <5„„- (C. 22) 

Jo . 

Rodrigues formula: 


G*(f) 


^ 2(n+2l— 2)? ^ 


1/2 


2n+2£-3 


)• 




n-j -£— 4 


) (C. 23) 


First few polynomials: 


^ ( 2(21 - 2)!) 1/2 

(2^), 


Gj_ 

Gi 



2t - 1 


(27 -iy/2 ^ ~ V + !) 

1/2 

[(Sf + SX 2 -(S^ + 4){ +2^- 


1] 


(C.24) 
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Recurrence relation: 


fr .< _ [O + 1 )( n +2£ - 1)] 1/2 r t ,c\ 

M^TT) G " +l{i) 

(2 n 2 + 4 in - 2n + 2£ 2 - Zt + 1) 


Derivative relation: 


+ 


+ 


4 (n 4 — l)(n 4- £) 
[n(n + U - 2)] : 1/2 

4(n + £-l) n_1 ^ 


Gi(0 


«f - 1) 


_ n [(n + l)(n + 21 - 1)] 


1/2 




4(n 4- 1) 
n(n 4- 2C — 1) 


<?S+i(0 


c*.«) 


4(n 4- £ — l)(n 4- i) 

[n(n + 21 - 2 )] 1/2 (n + 21-1) 
4 (n 4-^ — 1) 




(C.25) 


(C.26) 



Algebraic Mapping 

The radial direction, 
variable £. The mapping, 

Definition: 

Derivatives: 

« = 

dr 

ii = : 

dr 2 


Appendix C 

Properties of Algebraic Mapping 
and Special Functions 


0 < r < co, is mapped to the domain [0,1] in the new 
and its properties are shown below. 


c = 


+ r? 


9 a 

r i‘ 

l-c 


(C.l) 


= — ^/ 2 (1 - 0 3/2 =2 

*"i 

( 4 £ - 1 ) (1 - £) 2 = ' 

r i 


2 r 

V 2 + r 2 ) 2 

— 2rJ (3r 2 — 
(r 2 + r 2 ) 3 



r 2 dr = 



1 / 2(1 


(02) 

(03) 

(04) 
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Coordinate Singularities 


In spherical polar coordinates, there are coordinate singularities near the origin 
and on the polar axis, 9 — 0 and tt. Therefore, an arbitrary expansion in these 
coordinates can have discontinuous derivatives at these singular points giving, for 
example, infinite vorticities or Laplacians. Our expansions involve vector spherical 
harmonics multiplying arbitrary radial functions. The vector spherical harmonics 
ensure that the function is smooth along the polar axis. We are left with the 
task of finding appropriate radial functions, and therefore knowing the allowable 
combinations of sin <f > , cos </> , cos 9 , sin 9 and r such that the basis functions are 
smooth near the origin and are also complete. 

Spalart (198S) derived the functional dependence for the general class of the 
radial functions in polar and spherical polar coordinates, for scalar and vector fields. 
This was accomplished by writing the solution at the origin in a Taylor series ex- 
pansion, applying a Laplacian operator repeatedly, and requiring that all of the 
derivatives remain bounded. From this, a set of constraints on the radial functional 
dependence is found. He then shows that this is not only a necessary condition but 
also a sufficient condition by counting the number of degrees of freedom imposed 
by this dependence and the number of degrees of freedom available in the Taylor 
expansion in x, y, z coordinates. By showing that these are equal, it follows that 
this form of the radial expansion in the neighborhood of the origin, is both sufficient 
and necessary for completeness. This appendix describes this procedure for scalar 
and vector fields in spherical polar coordinates. 
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For a scalar field, g(r , 6 , <f>), we have an expansion of the form 

g{r, 9,<I>) = Y1 h( m (r) Yi m (0, 4>) (D.l) 

l,m 


We wish to find the functional form of ht m (r) such that g(r,0,<f>) is smooth near 
the origin. Applying the Laplacian operator n times gives 

(v 2 )"g = = Y^((L e ) n h em )Y t m (D. 2) 

t,m t,m 

where Li is given by equation (C.13). For all the derivatives of g to be bounded 
at the origin, (( Li) n hi m ) must be bounded for all n. Now, write a Taylor series 
expansion of hi m about the origin: 

oo 

him = ^2 a p r p . (D. 3) 

p=o 

Substitute equation (D.3) into (D.2) giving 

oo 

(V 2 )"ff=X><) n (y>r*)r/" 

*•" . P= ° M 

=EE a «-(( £ «)“ r ') 1 '" 

l,m p = 0 


Again, for all derivatives of g to be bounded, ( Li) n r p must be bounded. From 
equation (C.13) it follows that 

L e ( r i) = {q-e)(q + e + l)r'’- 2 . (D.o) 

From (D.5), it is clear that for L((r q ) to remain bounded, q must equal i before 
q-r- 2 < 0. Furthermore, repeated applications of the Laplacian (eqn. D.4) gives 

(Le) n r p ~ r p ~ 2n . (D.6) 

and q = p — 2n . Since q = £ , then p — 2n = t before p — 2n < 0 , or p = £ + 2n . 
Combining this with equation (D.3) gives 


him ~ ^ a n r t+2 

n—Q 


~ r? ^]« n ( r2 ) 

n=0 


(D. 7) 
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where fi m is a smooth function. This constrains the form of the expansion. The 
next step is to show that these constraints are sufficient, or that the the number of 
degrees of freedom in the spherical harmonic expansion is equal to the number of 
constraints imposed by equation (D.7). 

In a Taylor series expansion in x,y,x, we have 

oo 

g(x,y,z)- aij k x'y 3 z k (^- 8 ) 

i,j,k=0 

where x — rsin0cos<^>, y — rsin#sin<^, and z = rcos#. Writing equation (D.8) 
in spherical polar coordinates gives 


g(x,y,x)= a ijkr t+J+k s ijk (9,(l>) 
i,j,k = 0 

oo 

p - o 

where the functions Sijk contain the angular dependence. We now ask how many 
combinations of ( ij,k ) there axe for a given p, such that i + j + k = p, where 
i > 0, j > 0, and k > 0. 

First, we eliminate k by writing 


k = p — i — j 

(£>.10) 

or 

i > 0 

P>i + j, ... 

j > o 

(D.ll) 

By expressing equation (D.ll) as 


j < p - i, i > 0 

(£>.12) 


^ ] Q>i jk $ijk 

i-\rj-bk=p 


we can count p — i -f 1 values of j that are compatible with a given i . Therefore, 
the total number of degrees of freedom is 


£(p -» + i) = £((? + 1) - *) = £(p + !) - £* 


«=o 


t=0 


i=0 


1=0 


, , ,,2 p(p+ 1) 

= (p + !) 5 — 

(p + l)(p + 2) 


(£1.13) 
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Next, we count the degrees of freedom in the expansion given by (D.l). Com- 
bining this with the radial dependence given by (D.7), we have 

<?~ E T Mn Y lm {9A) (P-14) 

l,m,n 

where n > 0 , ^>0, and p = £ + 2n . 

We begin by counting the number of values of m , giving 1 . Furthermore, 
write £ = p — 2rz , n >0, £ > 0 . Now, we eliminate £ giving 2(p — 2n) 4- 1 values of 
m, where n > 0. Note that the upper bound on n is given by n < where [|] 
indicates the integer value. Therefore, the total number of degrees of freedom is 

m 

£ (2(p - 2n) + 1) = ( | +l) (2p-2 |] +l). (P.15) 

n=0 

Considering the case of even and odd p separately, the equation (D.15) simplifies 
to ( p rtlKg± 2 . l ; which is equal to the number of degrees of freedom (eqn. D.13). 

Next, we generalize this to 3D vectors in spherical polar coordinates. The ex- 
pansion is in terms of the radial functions multiplying the vector spherical harmonic 
functions, X^ m , V^ m , and W* m . Applying the same procedure as that above, we 
take the Laplacian of the expansion function and require that all of the derivatives 
are bounded. From equation (C.13) for the Laplacian of each of the VSH functions, 
we find p — £ + 2rt for X* m , p — £ + 1 + 2n for V* m , and p — £ — 1 -f- 2n for W 
and the corresponding total number of degrees of freedom is (3p 2 -f 9p -f 8)/2 . In 
comparison with the number of degrees of freedom for the Taylor expansion in r, y, 
z (ie., 3(p-f l)(p + 2)/2), we find that we have 1 too many degrees of freedom. This 
apparent discrepancy can be accounted for by the special cases of Xo,o and Wo,o 
which are equal to 0. If p is even it multiplies Xq^ and if it is odd it multiplies 
W 0)0 , making all of the degrees of freedom accounted for. 

In summary, in order for an the expansion given by equation (2.3.1) to be 
Coo (infinitely differentiable), the radial functions multiplying each of the vector 
spherical harmonics, X£ m , V* m , W^ m , must (near the origin) be of the form 


(D.16) 


r fxim(r 2 ), 
r (+1 fvim(r 2 ), 
fwim{r 2 ), 


respectively, where the f’s are smooth. 


Appendix E 
Gauss Quadrature 


Gauss quadrature is an efficient and accurate method to evaluate certain types 
of integrals. In particular, when an integrand is composed of the product of a poly- 
nomial and a weight function of a Sturm Liouville polynomials (Legendre, Jacobi, 
Chebychev, etc.) and the limits correspond to the same family as the weight func- 
tion, then such an integral can be integrated exactly with a finite number of points. 
It happens that for the problem which we are solving, integrals of this form arise 
in transforms from real space to wave space and those defining global properties 
of the flow (i.e. impulse, momentum, etc.). Actually, this property of our integral 
expressions was a constraint which determined the basis functions. 

Gauss quadrature frequently refers to integrals using Legendre polynomials of 
as interpolating polynomials. Here we are using this term in a more general sense 
to mean any interpolating polynomials which are solutions of a Sturm-Liouville 
problem. This method is defined not only by weights multiplying the function at 
each grid point, but also the particular choice of the grid points. By using these 
extra degrees of freedom, a polynomial, P 2 N- 1 , of order 2JV — 1 is integrated exactly 
using only N collocation points. This appendix develops this numerical method 
and presents a scheme for determining the collocation points and weights for a 
particular family of interpolating polynomials (Golub and Welsch, 1969). 
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Theory 

A definite integral, J, is evaluated numerically as a discrete sum 

.b N 


I- ( f(x)w(x)dx ~ ^2f(x n ) A n 

Ja n= 1 


(E. 1) 


The particular quadrature rule is determined by the choice of the points, x n (N 
degrees of freedom), and the weights, A n ( N degrees of freedom), totaling 2 N 
degrees of freedom. 

One means of determining the weights, A n , is to approximate the function, 
/(r), as a polynomial of degree N , 


Pn( x ) ~ 


N 



a(x) 

x n )a'(x n ) 


/(*„) 


(E. 2 ) 


where a(x) = (x — x,)(x — X 2 )(x — X 3 )...(x — xjv) is a completely factored N th 
degree polynomial. Therefore, f(x) is exact at the points, x n . Furthermore, if 
f(x) is a polynomial of order N — 1, then the approximation is exact everywhere 
(the space of polynomials of degree 0,1,-.-, iV — 1 is of dimension N). 

Substituting equation (E.2) into (E.l), and exchanging the sum and integral 
operators gives 




w(x) dx 


(E.Z) 


With equally spaced points, x n , we get gives various Newton-Cotes formulas, among 
which is the commonly used Simpson’s rule (if;(r) = 1). 

It was pointed out by Gauss, that the values of x„ represented unused pa- 
rameters, giving the potential of a more accurate scheme. Indeed this is true when 
x n is chosen such that o;(x) is the n th - degree polynomial which is orthogonal to 
all lower degree polynomials over [a, b] with respect to the weighting factor w(x). 
With this, a function, f(x) = P 2 N -1 is integrated exactly with N collocation 
points. The most common sets of orthogonal polynomials are those resulting from 
solutions of a Sturm- Liouville problem. Therefore, if we are able to express our in- 
tegrals in the form of equation (E.l) where the weight function, itf(x), and interval, 
[a, 6] , correspond to a family of polynomials which are solution of a Sturm-Liouville 
equations, and if the remaining part of the integrand, /(r), is a polynomial, then 
we can integrate the function exactly with a finite number of collocation points. 
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Finding the Collocation Points and Weights 

The mechanics of numerically computing the collocation points, x t -, and the 
weights in the quadrature formula, A, , are described below. For a more complete 
mathematical treatment, see Golub and Welsh (ref.). We start with the recurrence 
relation for the particular special functions of interest, cast this as an eigenvalue 
problem, normalize the matrix, and solve for the eigenvalues and the eigenvectors. 
The collocation points, x n , are the eigenvalues (which are also the n zeros of the 
n th degree polynomial) and the weights are found from the eigenvectors. This 
procedure tends to be less sensitive to roundoff errors than that of finding the roots 
of the n th polynomial, and then the weights by a linear system. 

For any solution of a Sturm- Liouville problem, a three term recurrence relation 
can be found, showing the relation between the polynomials of different orders. 

Pj+ iO) = ( a i+i x + b j+ 1 )pj(x) - c j+ ipj^i(x) (EA) 

for j — 0,1, ...,1V — 1, p_j(x) = 0, and po(x) = 1. The coefficients, a J+ i , , 

and c J+1 are tabulated in several books, for example Abramowitz and Stegun (ref.). 
Rewriting equation (E.4), 


x p(x) = T p(x) p N (x)e N 

a N 


e/v = 

[0,0,.. 

..,0,l] r 




P(X) : 

= bo(aO,Pi(z),P2(z),. 

..,PiV- 

l(^)] T 






0 ) 


£± 

—h. 

X 




a 2 

a 2 

02 



T = 


' - _ 







Cjv-i 

t>N - l 

1 




OiV-1 

aN- 1 

OJV-I 


\ 0 



cv 

OiV 

f>N j 

aN ' 


(E.o) 


The eigenvalue comes about from evaluating equation (E.5) at x — tj , and 
setting PN(tj) — 0, 

< jP(*j) = T P (fj) (£-6) 

The matrix, T, is symmetric if the polynomials, p ; (x), are orthonormal. If this is 
not the case, a diagonal similarity transform is performed, 


-l 



02 


0 


\ 


\ o 


0N- 2 


OfJV-1 
0N - 1 


0N- 1 I 

&N / 


DTD 


= J = 


0i 

<*2 


(E. 7) 
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where 


OCi — 


bi 


ai 



Cj+l 
a i G i+1 


1/2 




to obtain a symmetric matrix. 

The eigenvalues and eigenvectors of the matrix J are computed from a standard 
eigenvalue solver. The eigenvalues, which axe distinct and real since J is symmetric, 
are equal to the collocation points. Knowing the eigenvalues, the eigenvectors axe 
easily obtained. The first component of the eigenvectors, q^ • is used to compute 
the weights 

f b 

An^qljfio Ho = / w(x)dx. (E. 8) 


We have obtained the collocation points, x n , and the weights, A n , defining the 
quadrature rule. 




Appendix F 

Computing Centroid and Impulse 


Centroid and Propagation Speed 


We begin with the definition of the centroid suggested by Lamb (1945), SafFman 
(1970) and others. 

1 f rxwl , T , , _ 

= 2j v -p- rdV (K1) 


x = 


For axisymmetric flow, equation (F.l) reduces to 


= ~T~ I u<j>y 2 xdA 
*■*1 P J A 


(F.2) 


As seen in figure F.l, A is the area enclosed by the half plane, — oo < x < oo , and 
0 < y < oc. The velocity of the centroid, U , is found by taking the time-derivative 
of equation (F.2): 

d.X 1 

U = — = — — r~ / ^ v'xdA (F. 3) 


dt I r /p J A dt 
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Figure F.l. Definitions of Cartesian coordinates, and spherical polar co- 
ordinates with <^=constant. 


In order to evaluate U for a given vorticity field, we use the vorticity equation 
(obtained from the curl of the momentum equation). 

duj n 

... .-gj- = V x (u x lj) -f uV 2 u (.F.4) 

The rate-of-change of vorticity in equation (F.3) is then replaced by the right hand 
side of equation (F.4). As mentioned by Saffman (1970), the viscous term does not 
contribute to the velocity of the centroid, U . This can be shown by expressing 
the Laplacian of in cartesian coordinates and rearranging the viscous term, 
ry 2 V 2 u;, such that it is expressed as total differentials. Integrating by parts and 
considering the decay of vorticity at infinity, together with zero vorticity on the axis 
of symmetry, shows that this term is zero. 

Assuming that the flow is axisymmetric and without swirl (u<f, — 0, uj r = ug — 
0), the only component of the convection term is 

(Vx(ux U ))*=dl(r«^)-i^ (F.o) 

Substituting equation (F.5) into (F.3) (using eqn. F.4 and the fact that the viscous 
term does not contribute), and integrating by parts, the velocity of the centroid 
becomes 


U = 


L/p 


Li 


3 U r -f- Ug 


(3m 2 ~ 1) 

fi sin# 


r 2 dr sin 6{xd(i 


(F.6) 


where fi — cos 6 . Therefore, given the velocity or vorticity (since one can be derived 
from the other), the velocity of the centroid is computed using equation (F.6.). 
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Impulse 


For flows which are unbounded and unforced with a quiescent far-field, the 
impulse is conserved. Because the governing equations conserve impulse, and it is 
not built into the method, this serves as a very useful diagnostic. It is computed in 
two ways. The first is by a multipole expansion (described below), and the second 
is a direct integration using Gauss quadrature (see Appendix E). 


Multipole Expansion: 

The <f> component of the vector potential as r — > oo to leading order is 

T - - s * n ^ 

^ 47 r r 2 


(R7) 


where I is the impulse (Cantwell, 1986). Furthermore is related to the stream 
function, ^ by 

= -&- D (f-8) 


Therefore, 




r sin# 

I sin 2 9 


4?r r 

From this we can get the velocity component in the radial direction, u , as 

1 d*l 1 I c 

r 2 sin 9 89 r 3 27r 

Now, our spectral expansion for the radial component of velocity is 

u = Y j a nl l{t + l )^P? 

n 1 


(F.9) 


(F. 10) 


(F.ll) 


where f+ = (1 - 0 «+i>/*^ G * (£). For t = 1 , Pf = cos 9 . Hence, we only need 
the l — 1 terms. The velocity becomes 


u 


— 9 


(i -£K 1/2 


cos 0 


(JF.12) 


where <-^(0 is the normalized Jacobi polynomial family where p = 1, q = 1/2. 
Next, we need to determine the leading term in u as r — > oo . or f — » 1 . 


-cos#£ 1/2 (1 - 0Va„i lim G n ( £) 
r £—1 


(F. 13) 
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The results for lim^_*i(l — £) and (? n (£), described in detail below, are 

■ 2 '- 2 (F.14) 




1/2 


lim G„(t) 


77 


(2 TL *f- 1) 


(F- 15 ) 


Substituting equation (F.14) and (F.lo) into equation (F.13) gives 

/ 2\ I/2 

Uoo = 2cos0 f — J r\/r 2 ^ u„i(2n + 1) (P.16) 

' ' n 

The velocity at a large radius, u 0 c , is then substituted into equation (F.10) giving 

9 i/ 2 

1 = 4:77 - rj a„i(2n + 1) (P.17) 

7T z ' 


Limiting form of Jacobi polynomials as r — ► oo: 

Abramowitz and Stegun (1972) give coefficients of the expansion for Jacobi 
polynomials. Pn Q, ^\x) (in their notation) where 1 < x < 1, of the form: 

n 

P ( n a ^(x) = a- 1 ]T c m (x - 1 )"*. (F.18) 

m= 0 


These polynomials, Pn a, ^(x), are related to shifted Jacobi polynomials through 
A&;S equation (22.5.2). In addition, we must scale the Jacobi polynomials in A&S 
such that they axe orthonormal. Applying these transfomations gives an expansion 
in terms of 1 — £, where £ is the mapped coordinate (eqn. C.l). From equation 
(C.5), note that the leading term for 1 — £ at large r is of order 1/r 2 . Therefore, the 
limiting behavior as r — » oo (or £ — + 1) is simply the first term in the expansion. 
From this analysis, we find that the leading term as a function of n for orthonormal 
shifted Jacobi polynomials at large radius is 


lim G e n 



( 2 n 4 * 1 ). 




(F. 19) 



Appendix G 
MACSYMA Code 


MACSYMA is a high level programming language which is able to manipu- 
late symbols. In addition, it includes extensive libraries of algorithms for solving 
mathematical problems such as integral equations, differential equations, etc.. It 
is especially powerful in solving problems where the algebra becomes very lengthy 
and involved. The elements of the mass and viscous matrix were computed ana- 
lytically using MACSYMA (see section 2.2 and 3.4). One reason to compute these 
analytically is to mimimize the roundoff error (see section 3.5). 

We axe interested in evaluating the integrals given by equations (3.4.1) and 
(3.4.3), the mass and viscous matrices, respectively. The way in which this was done 
was to express these integrals in terms of sums of Jacobi polynomials (using the 
derivative and recurrence relations of Appendix C) and then apply the orthogonality 
relations (Appendix C) to evaluate products of Jacobi polynomials. Therefore, the 
problem proceeds in two stages. The first stage is to find the recurrence relations 
and differential relations for the Jacobi polynomials used in this work. The next 
stage is to write a program (or macro) to carry out the process of substituting the 
recurrence and derivatives relations, and evaluating the integrals. 

As discussed in Appendix C, we are using orthonormal, shifted Jacobi poly- 
nomials. These are a modified form of those shown in Abramowitz and Stegun 
(1972). The Jacobi polynomials are functions of two indices (n and C) in order 
that the matrices are banded. This leads more complex recurrence, derivative, and 
Rodrigues formulas. To avoid mistakes, this process is programmed: the listing is 
entitled Jacobi. Three formulas are derived here. The recurrence relation, recur , 
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the derivative relation, difeq, and the macro which generates the Rodrigues formulas 
of any specified order, Rodrigues . 

The second listing, Matrix Macros, shows several marcos which are called 
in succession in order to evaluate the integrals, followed by the a listing of the 
program used to obtain the elements of the mass matrix. The macros are: (1) repxi 
which replaces £G ( n with the appropriate linear combination of G e n (eqn. C.25), 

dG^ 

(2) repder which replaces occurances of f(l — 0~df~ the appropriate linear 

combination (eqn. C.26), (3) getcoef extracts the coefficients in front of each of the 
Jacobi polynomials, and (4) genmat uses the orthogonality relations and solves for 
the matrix elements (ie. the diagonal and off-diagonal nonzero elements). 

In the mass matrix shown by equation (3.4.1), there are two terms. Because 
the there wasn’t sufficient memory to solve the entire problem at one time, each of 
the two terms are computed during a separate session and the results from the two 
sessions were combined to give the final answer. The macro which combines these 
elements is forma. 

The viscous matrix was computed in a similar manner. This matrix involves 
another derivative, and 4 terms instead of 2, so the algebra is considerably more 
involved. Again because of memory restrictions, the problem had to be solved in 
pieces and then combined to give the final result. 
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Jacobi 


re air ranee (recur) : : *buHdg ( [recur] , 

(assure (n>-0) , 
assure (el>-l ) , 
assure (n+ed>-l) , 

/* coefficients in Jacohi recurra nee relation */ 

p:2*el-l, 

q: el-1/2, 

al : factor (- (2*n* (n+p) +q*(p-l)) /((2*n+p) A 2-l) ), 

a2 : factor (n *(rt+q-l) Mn+p-1) *(n+p-q) /((2*n+p-2)*(2*n+p-l) A 2*(2*n+p))}, 
/* normalized Jacohi polynomial, factors */ 

h(n] :N! *GH*ft (P+N) (-Q+P+N+1) (Q+N) / ( (P+2*N) ‘GW-t-ft (P+2*N) **2) , 

h[nj :makfifact (h [n] ) , 
h[n+l] :subst(n+l,n,h(n]), 
h[n-l] :subst(n-l,n,h[n] ), 

NDFM1 : sort (factor (minfactorial (h [rrt-1] /h [n ] ) ) } , 

NCFM2:sqrt (factor (minfactorial (h[n-l]/h[n] ) ) ) , 

/* recurrence relation for normalized Jacobi polynomials */ 

recur: y*g[n] (y) - NCPMl*g(n+l] (y) - al*g[n] (y) + NCPtG*a2*g[n-l] (y)))$ 

Rodrigues (nmax, G, term2) : :-buildq( (nmax,G, term2] , 

(p:2*el-l, q:el-l/2, alpha:el-l/2, beta:el-3/2, 
rho: (l-x) A Apha * (l+x) A beta, 
g: 1 - x*2, 

rhoy: subst(2*y-l,x,rho), 

gy: subst (2*y-l,x,g) , 

for n:0 thru rmax do 

( an: (-l) A n *'2 A n * factorial (n) , 

terml: (factorial (n)*garrma (n+p) )/garma(2*n+p}, 

h[n] :N!*GRMfl\(P+N) *GAM-!A(-Q+P+N+1) 

*GW«A (Q+N) / ( (P+2*N) *GPM*ft (P+2*N) A 2 > , 

NCBM:sqrt (h[n] ), 

term2 [n] : terml/ (nomi*an*rhoy*2 A n) , 

G(n] :factor(diff (rboy*qy A n,Y,n) *term2[n] ) , 
print ("G[",n, "] is", G[n]) 

) 

) 

)$ 

/* Differential recurrence relation*/ 
alpha : el - 1/2; 
beta : el — 3/2; 

g2 : (2*n + alpha + beta) * (l-xi A 2); 

gl : n* (alpha - beta - (2*n + alpha + beta) *xi); 

gO : 2* (n + alpha) * (n + beta); 

eq:g2 * diff (f[n] (xi),xi) - gl*f[n] (xi) + gO*f[n-l] (xi); 
ea: subst (2*xi-l,xi,eq) ; 

eq: ratsubst (diff (f [n] (2*xi-l) ,xi)/2,diff (f [n] (2*xi-l),2*xi-l),eq); 
z:2*xi-l; 

for k:n-l thru n do 

( term(k] :makefact( gaima(2*k+p)/ (factorial (k) *gatma (k+p ) ) ), 
f[k] (z) :- g[k] (xi)*tem(k] ); 

eq: eq/tem[n] , dif f ; 

eq: factor (minfactorial (expand (eq) ) ) ; 

eq: eq/ (-4* (n+el-1 ) ) ; 

/* eq2: normalized differential relation •/ 

c(nj :ratcoeff (rhs (eq) ,g[n] (xi) ) ; 

c(n-ll : factor (ratcoeff (rhs (eq),g(n-l] (xi))); 

eq2:Ihs (eq) - c[n]*g[n] (xi) + NCf^C*c[n-l] *g(n-l] (xL); 

/•as a check, eq2:lhs(eq) - c(n]»g[n] (xi) + c(n-l]*g(n-l] (xi);*/ 

/•then, is ratsirrp(rhs (eq)-rhs(eq2) ) - 0 •/ 

eq2: rats uost (rhs (recur) ,lhs( recur) ,eq2); 

Lhsec2 : factor (lhs (eq2 ) ) ; 

c2 [n-i-1] : factor (ratcoeff (rhs (eq2),g[n+l] (xi) ) ) ; 

c2 [n] : factor (ratcoeff (rhs (eq2) ,g(n] (xi) ) ) ; 
c2 [n-1] : factor (ratcoeff (rhs (eq2) ,g[n-l] (xi) )); 

aifeq:lhseq2“c2 [n-1] *g[n-l] (xi) + c2[n]*g(n] (xi) + c2 [n+1] *g[r.+l ] (xi); 



OF POOR 
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Matrix Macros 


/‘Procedure to replace x± * Jacobi polynomial with appropriate linear ccrrbin 
repxi ( func , wid ) buildq ( [ func , wid 1, 
for k: n-wid thru n+wid do 

func : ratsubst ( Gt[k+1) (xi)*sqrt(k+l)*sqrt(k+2*el-l)/(k+el)/4 

+Ct(k] (xi) * (2*k A 2+4*el*k-2*k+2*el''2-3*el+l) / ( (k+el-1) * (k+el) ) /4 
+-Gt (k-1 ] (xi) *sqrt (k) *sqrt (k+2 *el-2 ) / (k+el-1 ) /4 , 
xi * Gt [k] (xi), func ) )$ 

/♦Procedure to replace xi * (1-xi) * cGn/dxi with appropriate linear ccmhina 
render ( func , wid ) : buildq ( [ func , wid ], 
for k: n-wid thru n+vid do 

func : ratsubst ( -Gt[k+1] (xi) *k*sqrt (k+l)*sqrt (k+2*el-l)/(k+el}/4 
+Gt{k] (xi) *k* (k+2*el-l)/( (k+el-1)* (k+el) )/4 
+Gt[k-1] (xi) *sqrt (k) *sqrt (k+2*el-2) * (k+2*el-l)/ (k+el-1) /4, 
xi * (1-xi) * diff ( Gt(k] (xi), xi), func ) )$ 

/* Extract coefficients */ 

getcoef (func, wid, coef , funccut) : builcfa([func,wid,coef,funoout], 

(funcout:0, 

for j:-wid thru +wid do 

(tmp:divide(func,Gt[n+j] (xi),Gt[n+j) (xi)), 
coef (j) : factor (tnp(l) ) , 
func:tmp[2], 

funoout:funoout+coef [ j) *Gt[n+j] (xi) 

) 


gerirat (coefl, cxef2, wid, matrix, amatO, ama tl) 

buildq( (coefl, aoef2, wid,matrix, amatO, amatl], 
(ocef2[-wid-2] :0, coef2[-wid-3] :0, 
for j:0 thru 2*wicB-l do 
(matrix [n+j] :0, 
for k: -wid thru wid do 

fcnatrix[n+j] :matr±x[n+j] + coefl[k]*subst(n+j,n,coef2[k-j]) 

), matrix(n+j] : factor (itBtrix(m-j) ), 
print ("matrix element ",n+j, "is", matrlx(n+ j|) , 

amatO (n ] : - (ooefl [-1 ] *ooef2 [0 ) +ooefl (0 ] *coef2 (-1 ] +ccefl ( 1 ] *coef2 [-2] 

amatl[n]: -ccef 1 (-1 ] *coef2 [-2], 

amatO [n+1] : -(ccefl[-l]*sufost(n+l,n,ccef2[-l]) 

+ ooefl [0] *subst (n+1, n, coef2(-2])), 
anat0[n+2]: -coefl(-ll*subst(n+2,n,cae£2(-2] ) 

) 


)$ 

/* form the mass matrix elements by canbining the first and second parts */ 
forma (rrassl,mass2 , almatQ,a2nac0, almatl, a2matl , wid, mat,matO,matl ) 

buildq((massl,nHss2,almatO,a2matO,almatl,a2matl,wid,mat,matG,matl] , 
(fear j:0 thru wid do 

(mat[n+j] : factor (ratsinp(-rl''3*(nassl[n+j] + 2*mass2[n+J])/6) )), 
mat0[n] : factor (ratsimp {-rl" 3* ( (massl[nl +almat0[n) ) 

+ 2*<mass2[n]+a2mat0[n] ) )/6) ), 
macO (n+1 ]: factor (ratsinp(-rl / '3* ( (massl(n+l]+almatO(n+l] ) 

+ 2* (mass2[n+-l]+a2mat0(n+ll ) )/6) ), 
mat0[n+2] : factor (ratsiirp(-rl‘' 3* ( Cnassl[n+2I+aljratO[n+2] ) 

+ 2* (mass2[n+2]+a2mat0(n+2] ) )/6) ), 
macl(n): factor (ratsiirp(-rl / ' 3* ( fcvassl(n]+almatl[n) ) 

+ 2* (mass2 (nl+a2matl (n { ) )/6) ) 


) 


>S 
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Listing for Mass Matrix 


/* Building blocks of functions */ 
dxdr:2‘sqrt (xi) * (l-xi) A (3/2) /rl; 

Fnl: (1-xi) * ( (el+1 ) /2) *xi" (el/2 ) *Gt [n] (xi); 
r: rl*sqrt(xi)/sqrt(l-xi); 

/* First half of mass matrix, first function */ 

f :ratsimp ( (dxdr'diff (Frd,x±) -el*Fnl/r) *xi A (-(el-1) /2) * (1-xi) A (- (el+2) /2) ) ; 

repder(f,0) ; 
repxi (f , 0) ; 

getooef (f, 1, cf , fsiirp) $ 

/* First half of mass matrix, second function */ 

fprfsimp'xi? 

repxi (fp,l); 

getcoef (fp, 2, cfp, fpsimp) S 

/* With first and second function, find the first half of mass matrix »/ 
genmat (cf , cfp, l,nassl, almatO, almatl) $ 

/* second half of mass matrix, first function */ 

/* f 2 : ratsimp ( (dxdr*dif f (Fnl , xi ) + (el+1 ) * Fnl/r ) 

*xi A (- (el-1) /2) * (1-xi) A (-(el+2) /2) ) ; */ 


/*repder (f2,0) ; ♦/ 

/♦repxi (f2,0); */ 

/*getcoef (f2,l,cf2,f2simp)$ */ 

/* second half of mass matrix, second function */ 

/*f2p:f2simp*xi; */ 

/♦repxi (f2p, 1); */ 

/♦getcoef (f2p,2,cf2p,f2psimp)$ */ 

/* With first and second function, find the second half of mass matrix */ 
/♦genmat (cf2, cf2p,l,irass2,a2mat0,a2matl)$ */ 

/* form the mass matrix elements */ 

/♦forma (massl,mass2,alnatO,a2rrHtO, aim tl,a2rratl, 3,arrat,amat0, atari )$ ♦/ 


Appendix H 

Initial Condition Code 


The task of solving the Navier-Stokes equations is divided into two separate 
codes. The first ( IC) takes an initial condition in the form of a vorticity distribution, 
and finds the coefficients of the expansion approximating the vorticity field. The 
second code ( NS) starts with the coefficients computed by IC and marches the 
solution forward in time, a specified number of time steps. This Appendix will 
describe IC. We will begin by deriving the matrix equation which is solved to obtain 
the initial condition. Then a flowchart for solving this problem is presented and 
finally, a listing is attached. 

The vorticity field for axisymmetric flow in spherical polar coordinates contains 
only one component 

^4> — 5Z a n i(t)Le(fne)Pe (H.l) 

ni 

Multiply both sides of equation (H.l) by (L(> and integrate over the 

domain, 0 < fj. <1 and 0 < r < oc . Apply the orthogonality relations for 
associated Legendre polynomials 

X £*(/»'<) r 2 * = f J u* L e (f n , t ) Pi r 2 dr 

(H. 2 ) 

Rearranging equation (H.2) gives a set of N coupled equations for each i 1 with 
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Figure H.l. Flowchart of IC. 
unknown vectors, a nJ ?, 

9/4-1 r°° r r 1 1 

Cin' a nt = 2l(f+ T ) J 0 J ^ 9 P l (v) Llifn' t) r 2 dr (II .3) 

where C*„, = / 0 °° Lrjf n e) L(( f n 't) r 2 dr . This matrix, C’ n n , , is symmetric and 
positive-definite, and has a semi-bandwidth of 5. It is related to the viscous matrix. 
The elements of n , were analytically computed using MACSYMA. 

For a specified vorticity distribution, the right hand side of equation (H.3) is 
computed using Gauss-Legendre and Gauss-Jacobi quadrature. The matrix C^ n > 
is inverted by Choleskv decomposition, giving the coefficients, a n £. 

A flowchart of IC is shown in figure H.l. The solution procedure is quite 
straightforward. SETUP reads the inputs, iV, N C ,L,L C and the parameters defin- 
ing the initial vorticity field, and solves for the collocation points and weights 
for Gauss-Legendre and Gauss-Jacobi quadrature. JACOBI evaluates the radial 
basis functions at the collocation points, i — 1, . . . , N c for each n = N I and 
£ = LI . LEGENDRE evaluates the polar basis functions at the collocation points, 
j — 1, . . . , £ c , for each t ~ LI. EXACT contains the initial conditions of Stokes 
and thin rings, where the specified initial condition are evaluated at the colloca- 
tion points. For a given £, FORMRHS computes the right hand side of equation 
(H.3) and FORMA computes the elements of the matrix C e nn , . The coupled set 
of ordinary differential equations are then solved using the IMSL banded Choleskv 
solvers LUDAPB (decomposes C l nn , ) and LUELPB (solves the linear system) to 
get the coefficients a n ( for that £. This procedure is repeated for each £. 
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•CCMJECK VCRT4 

PARAMETER ( NMDIM-92, MMM-92, LM)IM-92, LCDIM-92, 

1 PI - 3.14159265358979323846) 

PARAMETER (LDWRITE-3, LREAD-5, IWRITE-6) 

DOUBLE PRECISION XIDD, FCCNSID 
CCM^CN/XIDCUBL/ XIDO (NCDIM) 

CCmXJ/BCCLLOC/ XI (NCDIM) ,WTR(NCDIM) ,CIH (ICDIM) ,WTTH(ICDIM) , 
1 R (NCDIM) 

CCMM0N/BJJCC8I/ GVD (MDIM, IMDIM, NCDIM) 

CCT-WON/BLEGEND/ PI (IMDIM, ICDIM) 

CCM-EN/aMATRIX/ SIC (MCIM, 6) , SICIW (MOIM, 6) , RHS (MDIM) , 

1 SDL (MDIM) 

CCMCN/BEXACT/ VCR (NDDIM, ICDIM) 

CCMDN/BCOEFF/ TIME, ALP (MDIM, IMDIM) 

CCMMUN/BGNRL/ MAX, NCOL, IMAX, ICCL, MAXA (MDIM) , IC 
CCMMGN/SPAM1/ RADIUS, RCCNST, Vise, GAM, CtR,RCCfCTD, 

1 IFm,IFRAME 

*DECK ICMAIN 

PROGRAM MAIN 
C 

c ... MMN ROUTINE ***** 

•CALL V0RT4 

CALL SETUP 

DO 25 LI - 1,IMAX 

MAXA(LI) - NMAX - LI +1 
25 CONTINUE 

CALL LEGENDRE 

CALL JACOBI 

CALL EXACT 

C begin 1 index here: 

' DO 100 LI-1, IMAX 
MAX - MAXA(LI) 

CALL FCR4RHS (LI) 

CALL FCRRA(LI) 

c decorrpose matrix, SIC 
’ N - MAXA(LI) 

NC - 5 
LA - MDIM 
IU - MDIM 

CALL IUDAP3 (SIC, N, NC, IA, SICINV, IU,D1,D2, IER) 

IF (IER.NE.0) THEN 
WRITE (UtfUTE, 1000) LI 

1000 FORMAT (X, ’WARNING: the error parameter is nonzero for LI 
EM) IF 

c find SOL, given RHS and decomposed matrix, SICINV 
CALL ILJELPB (SICINV, RHS, N,NC,IA, SOL) 

C Copy resultant vector into AIP(NI,LI): 

DO 95 NI-1,MAX 
ALP (NI,U) -SQL (NT) 

95 CONTINUE 

100 CONTINUE 

CALL OUTPUT 

STOP 

END 


SUBROUTINE SETUP 

r 

•CALL VCRX4 

DOUBLE PRECISION XI1D,RAIX> 

C Input: 

C > the order of the matrix (Max) . 

C > the number of collocation points (Ncol) . 

C > the greatest value of the quantum nurroer in theta (Imax). 

C > the number of collocation points in theta (Ioai ) . 


C > the radius of the vortex ring (Radius) . 

C > initial condition 

R£AD(LREAD, 1040) 

READ (LREAD, *) MAX, NCOL, LWtt, ICOL 
READ OREAD, 1040) 

READ (LREAD,*) RADIUS, VISE, GAM, CtR 
READUREAD, 1040) 

READ (LREAD,*) IC, I FUN, I FRAME 
1040 FOFMATt IX ) 

C 

C Cal 1 quad to get absissas and weights in the radial direction. 
CALL QUAD (NC0L,Wm,XI, XIDO) 

C Call CUADAZ to get The collocation paints in the theta direction. 

CALL QUADAZ(ICOL,WITH,CIH) 

C 

C Calculate FCCNST. 

IMIN - INT (REAL (NCOL) *3. 2/5.) 

XII - XI (IMIN) 

RCCNST - RADIUS* ((1. -XII) /XII) ** (1./2.) 

XI ID - XIDD (IMIN) 

FADO - RADIUS 

RCCNSID - RAED* ( (1.-XI1D) /XllD)** (1./2. ) 

C 

C Find the radial coordinate at each collocation point. 

CO 31 I - 1,NC0L 
XII - XI (I) 

R(I) - RC0NST*(XIl/(l.-XIl))**a./2.) 

31 CENITNUE 


c — — 

SUBROUTINE JACOBI 

C this subtroutine 1s defined for p-i, q-1/2 
‘CALL VCBT4 

C G(NI,I) or G (MDIM, NCDIM) 

DOUBLE PRECISION N,EL,G(90,90),DtM,QCR4,XID,rl 
C DOUBLE PRECISION DGAM®. 

REAL GH*A,ARG1,ARG2, SNCFM 

RI - RCCNST 
DO 50 LI - 1,IMAX 

EX - LI 


N - NI-2 
XID - XIDD (I) 

G (NI, I ) - (((4*N**2+(8*EL-4)*rR4*EL**2-4*EL)*XID-2*N’*2+(2- 

1 4*EL) *N-2*EL**2+3*EL-i) *C (NI-1, 1) + (-N*D3QFT (N**2+2*EL*N-2*N) 

2 £L*DSQRT(N**2+2»EL*N-2*N))*G(NI-2,I) )/ ( (N+EL-1) •DSO?T(N**2 

3 +2*EL*N+2*EL-1)) 

30 CONTINUE 
20 CONTINUE 


RETUW 

END 


C cerrc ute the Jaaofai Polyncmials far all n and xi at a given EX. 
J2j C this is only an intermediate result, it is not needed outside of 
C this subroutine. 

DO 10 I - 1,ND0L 
C n - 0, NC - 1 

ARG1 - 2*EX~1 
ARG2 - (2*EL-l)/2.0 

SNOFM - SQPT (2 . ) *SQRT (GAMA (ARG1 ) ) /GAM*?! (ARG2 ) 

QJCFM - SNOFM 
G (1,1) - 1.0d+0 
C n - 1, NI - 2 

XID - XIDD (I) 

G(2,I) - (4*EX*XrD-2*ElH-l)/DSQPT(2*EL-l) 

10 CCNITNUE 

C general recurrance formula - at that parlcular el. 

C Note: if necessary, sane memory can be saved by storing cnly 

C 5 Gil’s at a given time... Gn+2, Qn+1, Gn, Gn-1, Qi-2. 

DO 20 NI - 3,MAXA(LI)+2 
DO 30 I-l,NODL 
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C Knowing the Jacobi polynomials, o oipu tg (what amounts to) the 
C vorticity basis function. 

DO 60 I - 1,N00L 
XID - XIDD(I) 

dum - XID*(<EL*(4*ELt8)+3)*XID+(--4*EL-8)*EL-3)/Rl**2 

GVD (1,LI, I) - dun * GNOFW 

dan - XID* (XID* (EL* (EL* (16*EL+64) +60) *XID+ELL* 

1 ( (-24*EL-92)*EL-82)+3)+EL*(EL* (8*£L+28)+22)-3) 

2 /(DSOTT(2*EL-1)*R1**2) 

GVD (2, LI, I) - dun * GJCPM 

60 CONTINUE 

DO 70 NI - 3,M^XA(LI) 

N - NI-1 

DO 80 I - 1,NOOL 
DIM - 

1 ( (N* (N* (N* (4 *N+1 6*£L-4 ) +EL* (24*EL-12)-13)+EL* (EL* (16*EL-12) -26)+7) 

1 +EL* (EL* (EL* (4*EX< — 4) —13) +7) +6) *DSQRT (N**4+ (4*EL+2) *N**3+ (4*EL** 

2 2+10*£L-l) *N**2+ (12*EL**2+2*EL~2) *N+8*EL**2-4*EL> *G (NI+2,I)+ (N 

3 * (N* ( (-8*N-32*EL+12)*N+ (32-48*EL) *EL+20) +EL* ( (28-32*EL) *EL+46>- 

4 18)+EL* (EL* ( (8-8*EL)*EL+26)-14)-12)*DS0RT<N**2+2*EL*N+2*EL-l)* 

5 G (NI+1 , 1) + (N* (N* (N* (N* < (-8*N-48*EL+24 ) *N+ (88-128* EL) *EL-2) +EL* ( 

6 <128-192*EL)*EL+56)-36)+£L* (EL*< (96-168*EL)*EL+186)-68)+4)+EL* ( 

7 EL* (EL* ( (40-80* EL) *EL+196)-12 ) -64 ) +18) +EL* (EL* (EL* (EL* ( (8-16*EL 

8 ) *EL+68) -10) -64) +2) +12) *G (NI, I) + (N* (N* (N* (8*N+32*EL-20) +EL* (4 

9 8* EL-56) -8) +EL* (EL* (32*EL-52)-18)+26)+EL* (EL* (EL* <8*EL-16)-10) + 

: 20) +6) *D9QRT (N**2+ (2*E3>2) *N) *G (NI-1, 1) + (N* (N* (N* (4*N+16*EL-12 

; )+EL* (24*EL-36)— 1)+EL* (EL* (16*EL-36)-2)+15)+EL* (EL* (a* (4*EL-12 

< )-l) +15) ) +D3QRT (N**4+ (4*EIr-6) *N**3+ (4*EL**2-14*EL+11) *N**2+ (-4* 

- EL**2+10*EL-6) *N) *G (NI-2, 1) )/( (N* (N* (N* (16*N+64*EL-32)+EL* (96* 

> EL-96)-16)+EL* (EL* (64*EL-96)-32)+32)+EL* (EL* (EL* (16*EL-32)-16) + 

? 32) ) *R1**2) 

C Copy the double precision variable, DIM, to the single precisian array 
GVD (NI, LI, I) - DIM * GN3W 

80 CONTINUE 
70 CONTINUE 

50 CONTINUE 

RETURN 

EM) 

C 

c 

SUBROUTINE IECTM7RE 
•CALL VOKT4 

C Galulate Legendre polynomial, Pl(LI,J). 

DO 63 J-1,ICQL 
X1”CTH(J) 

SQ<2»SCFX(1.-X1*X1) 

PI (1, J)— SQX2 
PI (2, J)—3.*X1*SCX2 

63 CONTINUE 

DO 64 LI-3, IM» 

L-LI-1 

FACT- <2.*L+1.)/0>1.) 

FAC2-L/ (L+l. ) 

FAC3-(2.*L+1.)/L 
DO 65 J-l, LCOL 
Xl-CIH (J) 

PI (LI, J)~FAC3*X1*P1 (U-1,J)-?1 (LI-2, J)/FAC2 
65 CCNTIMJE 

64 CCNIINUE 

RETURN 

END 

C 

c — - 

SUBROUTINE EXACT 
’CALL VCRT4 


READ(IREAD, 1040) 

READ(IREAD, *) TOE 
1040 FOFWAT( IX ) 

DX - 0.0 

RNUT - VI9C * TOE 
IF (IC.EQ.l) GOTO 10 
IF (IC.EQ.5) GOTO 15 
IF (IC.EQ.2) GOTO 20 
IF (IC.EQ.3) GOTO 30 
IF (IC.EQ.4) GOTO 40 

C Gaussian ring with an Image. Input: R, a/R, Gamra/nu 

C 

10 CONTINUE 

FIXED - 1.2564392281 
CAPR - RADIUS 
DO 110 J-l,ICOL 

STH - SIN ( AC0S(CTH(J)) ) 

DO 100 I-l,NCOL 
R1 - R(I) 

ARG - EXP ( — (FIXED/CtR**2) * ( 1.+ (R1*R1/(CAPR*CAPR) ) 

1 - 2.*R1*STH/CAPR ) ) 

ARG2 - EXP ( - (FIXED/CtR* *2 ) * ( 1.+ (R1*R1/(CAPR*CAPR) ) 

1 + 2.*R1*STH/CAPR ) ) 

WR(I,J)- FIXED *GAM * (ARG-ARG2) 

1 /(PI* VISC *CAPR**2 *CtR**2) 

100 CONTINUE 
HO OCNTINUE 
GOTO 1000 

C Two Gaussian rings with an image. Input: R, a/R, Ganma/nu 

c 

15 CCNIINUE 

FIXED - 1.2564392281 
CAPR - RADIUS 
XX - 1.5 
DO 115 J-l, ICQL 
DO 105 I-l,NCOL 

XI - R(I)*CTH(J) - XX 
Xb - R(I)*CTH(J) + XX 
Y » R(I) *SIN (ACCS (CTH (J) ) ) 

R41 - 9QRT(X1**2 + Y**2) 

THNL - AIAN2 (Y,Xl) 

STHN1 - SIN(THNl) 

RMo - 3QRT (Xb**2+ Y**2) 

OTto - AIAN2 (Y,Xb> 

STHfto - SIN(THM3) 

ARG1 - EXP ( -(FIXED/CtR* *2)* ( 1.+ (INnENl/ (CAPR*CAPR) ) 

1 - 2.*PNl*SrHNl/CAPR ) ) 

ARG2 - EXP ( — (FIXED/CtR**2 > * ( 1.+ (FNl*^/ (CAPR*CAPR) ) 

1 + 2.*RNl*STHNl/CAPR ) ) 

ARG lb - EXP ( - (FIXED/CtR**2) * ( 1.+ (FNb*Rttj/ (CAPR*CAPR) } 

1 - 2. *RNo*STKNb/CAPR ) ) 

ARG 2b - EXP( - (FIXED/CtR” 2) * ( 1.+ (RNo*Rto/ (CAPR*CAPR) ) 

1 + 2.*RNo*SOTto/CAPR ) ) 

VOR(I, J)- FIXED *GfM * (ARGl +ARGlb- ARG2 -ARG2b ) 

1 /(PI* VISC *CAPR**2 *CtR**2) 

105 CCNTINUE 
115 CONTINUE 
GOTO 1000 

C Gaussian ring without an image. Input: time 

C 

20 OCNTINUE 

C Vorticity of a vortex ring of r(core)/R which is determined by 'THE' 

DO 130 J-1,IC0L 

STH - SIN( AOOS(CTH (J) ) ) 

DO 140 I-1,NCCL 
R1 - R(I) 

ARG - RADIUS* RADIUS + R1*R1 + DX*DX 
1 - 2.*Rl* (RADIUS*STH + DX*CIH(J)) 

IF (ARG.LT.O.) ARG - 0. 

RHO - SORT (AFC) 

EXP FIN - EXP (-RHO*RHO/4. ) 

VOR(I,J) - (GAMATSC) * EXPFUN / (4.*PI) 

140 CONTINUE 
130 OCNTINUE 
GOTO 1000 


C Calculate velocity at coliocaticr. points. 
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C Stokes ring. Input: time 

c 

30 CONTINUE 
C Angular dependence: 

DO 150 J-l,ICOL 
STB - SIN (ACOS (CIH (J) } ) 

C Radial dependence: 

DO 160 I-1,NOOL 

VOR(I,J) - STH*R(I) *EXP ( -R(I) **2/4. } 

1 / (TI>E*16.*PI** (3./2.) ) 

160 CONTINUE 
150 CONTINUE 
GOTO 1000 

C TVo Stokes rings. Input: time 

C 

40 CONTINUE 

C A test case for the lew Re no. vortex ring 
XX - 3.0 

C Angular dependence: 

DO 170 J-l , LCDL 
DO 180 I-1,NCC(L 

c TWo Stokes vortex rings: 

C Radial dependence: 

XI - R(I)*CTH (J) - XX 
X2 - R(I) *CTH (J) + XX 
Y - R(I) * SIN (AICS (CTH (J) ) ) 

RNEW1 - SQKT(X1**2 + Y**2) 

THNEW1 - ATAN2 (Y,X1) 

RNEW2 - 9QKTCX2**2+ Y**2} 

THNEW2 - AIAN2 (Y,X2) 

VCR(I, J) - ( .5*SIN(THNEH1) *FNEWl *EXP(-R?tM**2/4.) 

1 + .5*SIN(THNEW2) *H?EW2 *EXP (~FNEW2**2/4. ) 

2 )/ (TIME*16.*PI** (3./2. ) ) 

180 OONTINUE 

170 OONTINUE 

1000 OONTINUE 

RETURN 

EN3 

C 

c 

SUBROUTINE EOf*tt(LI) 

*CALL VOKT4 

INTEGER NI,LI 
C DIC (N*EIM, 6) 

DOUBLE PRECISION N, EL,DIC (90, 6) 

DOUBLE PRECISICN DS2KT 

EL - LI 

C Form DIC (Initial condition Matrix) . 

DIC (1,1) - 0. 

DIC (1,2) - 0. 

DIC (1,3) - 0. 

DIC (1,4) - 0. 

DIC (1,5) - 0. 

DIC (2,1) - 0. 

DIC (2,2) - 0. 

DIC (2,3) - 0. 

DIC (2, 4) - 0. 

DIC (3,1) - 0. 

DIC (3,2) - 0. 

DIC (3, 3) - 0. 

DIC (4,1) - 0. 

DIC(4,2) - 0. 

DIC (5,1) - 0. 

DIC (1,6) - 


I (EL* (EL* (EL* (EL* (EL* (EL* (128*EL+832)+1952)+1936)+536)-356)-258)- 
1 45)/(EL*(EL*(512*EX+1536)+1024)) 

DIC (2, 5) - 

1 (EL* (EL* (EL* ( (-32*EL-2Q8) *EL-496)-536)-258) —45) *DSQRX (8*EL**3-12* 
1 EL**2+6*EL-1}/ (EL* (EL* (512*EL+1536)+1024) ) 

DIC (3, 4) - 

1DSCRT( (2*EL~1)/EL) * (EL* (EL* (EL* (EX* ( (-64*EL-576) *EL-2032}~3552)- 
1 3196) -1380) -225) /((EX* (EX* (256*EL+1536)+2816) +1536) ) 

DIC (4, 3) - 

1 (EL* (EX* (EL* <16*EL+112) +288) +324 ) +135) *DSQRT ( (48*EX**4+48*EL**3- 
1 12*EL-3) /EL) /( (EL* (EX* (256*EL+1536) +2816) +1536) ) 

DIC (5, 2) - 

1 (EX* (EL* (EL* (16*EL+160)+552) +792) +405) *DSQRT ( (96*EL**4+96*EL**3- 
1 24*EX-6) / (EX**2+EX) ) / ( (EL* (EX* (512*EX+4608) +13312) +12288) ) 

DIC (6,1) - 

1 ( (-4*EX-24) *EX-3S) *D32RT( (3840*EL**7+21120*EX**6+43200*EL**5+ 

1 37920*EL**4+8400*EX**3-7560*EL**2— 4860*ELr^l0)/(EX**2+EX) ) 

2 / ((EL* (EX* (512*EX+4608)+13312)+12288> ) 


DIC (2, 6) - 

1 (EX* (EL* (EL* (EL* (EX* (EL* (EX* (128*EL+1472)+6624)+14768)+16744)+8468 
1 )+1002)+9)+135)/(EX* (EL* (EX* (512*EX+3072) +5632) +3072) ) 

DIC (3, 5) - 

1 (EL* (EL* (EL* (EL* (EX* ( (-64*EX-576) *EL-1936)-3056)-2476)-1372)-795)- 

1 225)/ ( (EL* (EX* (256*EL** (3.0d+0/2.0d+0)+1536*D32RX(EL) J+2816 

2 *D93RI (EL) ) +1536*D3QRT (EX) ) ) 

DIC (4, 4) - 

1DSQRX ( (6*EX+3) /EL) * (EL* (EX* (EL* (EX’ (EL* ( (-64*EL-396) *EL-50C8) 

1 -14208) -21420) -15960) -4059) +540) / ( (EL* (EL* (EX* (256*EL+2560) 

2 +8960) +12800) +6144)) 

DIC (5, 3) - 

1 (EX* (EX* (EL* (EL* (EL* (128*EL+144C) +6288) +13424) +142C8) +6282) +405) * 

1 DS2RX ( (12*EX+6) / (EL**2+EL) ) / ( (EX* (EL* (512*£L+4608> +13312) 

2 +12288) ) 

DIC (6, 2) - 

1(EL* (EL* (EL* (EL* (16*EL+224)+1120)+2372)+1735)-175)*DS(Kr( (480* 

1 EL**4+2400*EL**3+4320*EL**2+3240*EL+810) / (EX**2+EL) ) / ( (EX* 

2 (EX* (EX* (512*EL+7168) +36352) +78848) +61440) ) 

DIC (7,1) - 

1 (EL* ( (-24*EL-252) *EX-858) -945) *D3QRT( (160*EL**5+800*EL**4+1440*£L 

1 **3+1080*EL**2+270*EL) / (EL**2+3*EL+2) ) / ( (EL* (EL* <256*EL+3072) + 

2 12032) +15360)) 


DIC (3, 6) - 

1 (EL* (EL* (EL* (EL* (EL* (EL* (EL* (128*EX+2240)+16352) +64752) +151464)+21 

1 3988) +178730) +80661) +14715) /((EL* (EL* (EL* (512*EL+5120)+17920)+2 

2 5600) +12288)) 

DIC (4, 5) - 

lDSO?T (6*EX+3) » (EL* (EL* (EL* (EX* (EL* ( <-64*EL-832) *EL-4368)-12272)- 

1 20972) -234 68) -16499)-5385) / ( (EX* (EX* (EX* (512*£L+ 5120) +17920) + 

2 25600) +12288)) 

DIC (5, 4) - 

ID SORT ( (12*£L+6) / (EX+1 ) ) * (EL* (EL* (EL* (EX* (EL* < (-€4*£L-1280) *EX- 

1 10544)— 46192) -115804) -165336) -123605) -36975)/ ( (EX* (EX* (EL* 

2 (256*EL+3584 1+18176) +39424) +30720) ) 

DIC (6, 3) - 

1 (EL* (EL* (EL* (EL* (16*EL+232) +1300) +3538) +4714)+2485) *DSQRX( (480 

1 *EX**4+24CO*EX” 3+432 0* EL** 2+3240* EX+81C) / (EL+i ) ) / ( (EL* (EL* 

2 (EL* (2S6*EL+3584) +18176) +39424) +30720) ) 

DIC (7, 2) - 

1 (EX* (EL* (EX* (EX’ (EL* <96*EL+2064 ) +17568) +75384) +1 699501+186081) +727 

1 65) *DSQRT( (4C*EL**2+80*EX+30>/ (EL**2+3*EL+2) ) / ( (EL* (EL* (EL* (512 

2 *EX+9216)+60928>+175104)+184320) ) 
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DIC (8,1) - 

1 (EX* ((-24*EL-324) ‘EX-1434 )-2079) *DS2KT ( (2240*EL**6+23S20*EL**S+ 

1 98560*EX**4+208880*£X**3+233100*EX**2+127750*EX+26250)/ (EL+2) ) 

2 / ( (EX* (EL* (EL* (512*EL+9216) +60928) +175104 >+184320) ) 

DO 70 NX - 4 , M-AXA (LI ) 

N - NI-1 
DIC (NI, 6) - 

1(N*(N*(N*(N*(N*(N*(N*(N*(N* (96*N+960*EL-480)+EX* <4384*EL-3632)+672 

1 )+EL* (EL* (12032*EX-12032) +2624) +192 ) +EX* (EL* (EL* (22048*EL-22432 

2 )+32)+136)-4026}+EL*(EL*(EL*(EX*(28252*EL-25120)-18528)-3760)-l 

3 0900) +9390) +EL* (EL* (EX* (EL* (EL* (26C80*EL-16432)-48640)-16104)+1 

4 926) +38413)- 2097) +EL* (EL* (EX* (EL* (EL* (EL* (17024*EL-5120) -62944 ) 

5 -29696) +42232) +68288) -16618)-10272) +EL* (EX* (EX* (EL* (EL* (EL* (EL* 

6 (7552*EX+256)— 46464)-28432)+65608)+69752)-32292)-21489)+5085)+E 

7 L* (EX* (EL* (EL* (EL* (EL* (EL* (EL* (2048*EX+640) -18816) -13920) +42976 

8 )+41656)-27816)-21458)+7626)+1440)+EL* (EL* (EL* (EL* (EL* (EX* (EL* ( 

9 EL* (EX* (2S6*EX+128)-3264 ) -2784) +10800) +12024) -7684) -11258) -864) 

: +2106) +540) / { (N* (N* (N* (N* (N* (1024*N+6144*EL-3072) +EL* (15360*EL- 

; 15360) -5120) +EL* (EL* (204 80* EX-30720) -20480) +15360) +EL* (EL* (EL* ( 

< 15360* EX-30720) -30720) +4 6080) +4096) +EL* (EX* (EL* (EL* (6144*EL-153 

- 60) -20480) +46080)+8192)-12288)+EX* (EL* (EL* (EL* (EL* (1024*EL-3072 

> )-5120) +15360) +4096) -12288) ) } 

DIC (NI +1,5) - 

1 (N* (N* <N* CN* (N* (N* ( (-16*N-128*EL) *N+ (-480* EL-128) *EL-40)+EL* ( (-108 

1 8*EX-768)*EL-240))+EL*(EL*((-1680*EL-2176)*EX-472)+736)+431)+£L 

2 * (EL* (EX* ( {-1856*EL-3584 > *EX-288) +2944 ) +1724 ) ) +EL* (EX* (EL* (EL* ( 

3 (-14C8*EL-3456) *EL+560) +5696) +2800) -1016)-105)+EL* (EL* (EL* (EL* ( 

4 EL* ( (-640*EL-1792)*EL+1056) +5504) +2152) -2032) -210) )+EL*(EL* (EL* 

5 (EL* (EL* (ELM (— 128*EL-384) *EL+480)+2016)+360)— 2088)-838)+402)+l 

6 80)*DSQKT(N**2+2*EX*N+2*EX-1)/ { (N* (N* (N* (N* (1024*N+512Q*EX) + 

7 10240* EX**2-5120) +EL* a0240*EL**2-15360) >+EL**2* (5120*EL**2- 

8 15360) +4096) +EL* (EL**2* (1024*EL**2-5120)+4096) ) } 

DIC(NI+2,4) - 

1 (N* (N* (N* (N* (N* (N* ( (-32*N-256*EL-128)*N+ (-928*EL-1040)*EL-64)+EL* ( 

1 (-1984 *EX-3648)*EL~816) +256} +EL* (EX* ( (-2720*EX-7136) ‘EX-3024 )+l 

2 976) +1022) +EL* (EL* (EL* ( (-2432*EL-8384) *EX-5248) +5696) +6200) +146 

3 8) +EL* (EL* (EL* (EX* ( (-137 6* EX-5904 ) *EL-48CO) +7880) +12626) +4047)- 

4 971) +EL* (EL* (EL* (EL* (EL* ( (-448*EX-2304) *EL-2256) +5296} +10844) +3 

5 656) -3427) -1641) +EX* (EL* (EL* (EL* (EL* (EL* ( (-64*EL-384) ’EX-432) +1 

6 392) +3396)+1104) -2477) -2085)— 450) *DSCKT (N**4+ (4*EL+2) *N**3+ 

6 (4*EL 

7 **2+10*EL-l) *N**2+ (12*EL**2+2*EX-2) *N+8*EL**2^l*EL)/ ( (N* (N* (N* ( 

8 N* (N* (512*N+3072*EX+1536) +EL* (7680*EL+7680)-2560)+EL* (EL* (10240 

9 * EX+153 60) -10240) -7680) +EX* (EL* (EX* (7680*EL+15360) -15360) -23040 

: )+2048)+EX* (EL* (EL* (EL* (3072*EL+7680)-10240)-23040)+4096)+6144) 

; +EL* (EL* (EL* (EX* (EL* (512*EL+1536) -2560) -7680) +2048) +6144) ) ) 

CONTINUE 

DO 80 NI - 4,N«ftXA(LI) 

N - NI-1 
DIC (NI+3, 3) - 

1 (N* (N* (N* (N* (N* (48*N+288*EL+288)+EL* (800*EL+1664) +744J+EL* (EL* (128 

1 0*EL+4 096) +3872) +1056) +EX* (EL* (EL* (1200*EL+5184)+7304}+3440)+51 

2 )+EL* (EX* (EL* (EL* (6G8*EL+3296) +5968) +3376) -1146) -1242) +EL* (EX* ( 

3 EL* (EL* (EL* (128*EL+832) +1792) +992)-1368) -1836) -540) 

3 *DSQKT(N**6+( 

4 6*EX+6)*N**5+(12*EL**2+36*EL+10)*N**4+(8*EL**3+72*EL**2+64*EX)* 

5 N**3+ (48*EL**3+132*EL**2+24*EL-11! *N**2+ (88*EL**3+72*EL**2-22*E 

6 L-6) *N+48*EL**3-12*EL> / ( (N* (N* (N* (N* (2048*N+10240*EL+10240) +EX* 

7 (20480*EL+40960) +10240) +EL* (EX* (20480*EL+61440) +30720) -10240) +E 

8 L* (EL* (EL* (10240*EL+40960) +30720) -20480} -12288} +EL* (EL* (EL* (EX* 

9 (2048*EX+10240) +10240} -10240) -12288) > ) 

DIC (NI+4, 2) - 

1DSCFT (N+l ) ‘DSO^T (N+2) *DSCFT (N+3) *DSCRT (N+4 ) *DSQRT (N+2*EL-1) 

1 *D3QRT (N+2*£L) *DSCFT C-f+2*EX+l) *DSQPT (N+2*EL+2) 

1 *(N*(N*(N*(N*(N*(32*N+192*EL+288 

2 }+EL* (480*£X+1456)+832) +EL* (EX* (640*EX+2944)+3424) +672)+EL* (EL* 

3 (EX* (480*EX+2976)+5280) +2216) -702) +EL* (EX* (EX* (EX* (192*EX+1504) 

4 +3616)+2416)-1236}-1242)+EX* (EL* (EX* (EL* (EL* (32*EL+304)+928) +87 

5 2) -534) -1197 ) —405)/ ( (N* (N* (N* (N* (N* (2048*N+12288*EL+18432)+EX* < 

6 30720* EX+921 60) +5120C)+EX* (EX* (40960*EX+1 84320) +204800) +30720) + 


7 EL* (EL* (EL* (30720*EL+184320) +307200) +92160) -53248) +EL* (EL* (EX* ( 

8 EL* (12288* EX+921 60) +204800)+92160}-106496)-49152)+EL* (EL* (EL* (E 

9 L* (EX* (2048*EX+18432 ) +51200) +30720 ) -53248) -4 9152} } ) 

DIC(NI+5,1) - 

1D32RT (N+l) *D3QRT (N+2) *DSQKT (N+3) *D3QKT (N+4 ) *D3QRT (N+5) 

1 *DSCRT(N+2*EX-l)*DSCKr(N+2*EX) *DSCKT(N+2*EX+1) 

1 *D9QRT(N+2*EL+2)*DSCKr(N+2+EX+3)* (N*(N* 

2 ((-16*N-64*EX-128)*N+(-96*EX-384)*EL-344)+EL* ( (-64*EL-384)*EX-6 

3 88)-352)+EX* (EX* ( (-16*EL-128)*EL-344)-352)-105)/ ((N* (N* (N* (N* (2 

4 048*N+10240*EL+ 20480} +EL* (20480*EX+81920) +71680) +EL* (EL* (20480* 

5 EL+122880) +215040) +102400) +EX* (EL* (EL* (10240*EL+81920) +215040) + 

6 204800) +49152) +EX* (EX* (EL* (EL* (2048*EL+20480) +71680) +102400) +49 

7 152) ) ) 

80 (ENTINUE 

C convert cbuhle precisian matrix to single precisian. 

DO 20 NI - 1,1WRX 

SIC (NI,1) -DIC(NI,1) 

SIC (NI, 2) -DIC(NI,2) 

SIC (NI, 3) - DIC (NI,3) 

SIC (NI, 4} -DIC(NI,4) 

SIC (NI,5) -DIC(NI,5) 

SIC (NI, 6) -DIC(NI,6) 

IF (LI.EQ.l) THEN 
END IF 
20 CONTINUE 

RETURN 

END 

C 

C 

SUBROUTINE FCFPFHS(LI) 

C 

‘CALL VCKT4 

L - LI 
PL - REALCL) 

CL1 - (2.*RL + 1.) / <2.*RL* (RL + 1.)) 

R1 - RCCNST 

C Form RHS vector. 

DO 150 NIP-1, (MAX 
SUM - 0. 

DO 160 I-l/NCOL 
C Test function: 

' TESTE - Rl**4 * GVD (NIP, LI, 1) * (l-XI(I))**(CRL-3)/2) 

1 * XI (I)** (EX/2) /2 

C an inner loop begins here for the double integration 

SUM - 0. 

C Weight function of quadrature method: 

WFth - 1. 

CO 165 J - l,LCOL 

SUM - SUM + VCR(I, J)*P1 (LI, J)*WTTH(J)/WFth 
165 OCNTENUE 

C weight function of quadrature method 

SUM - SUM + SUM *TESTF*WIR (I ) 

160 CONTINUE 

RHSCNIP) - SUM * CU 
150 OCNTINUE 

RETURN 

ETC 

C 

c 

SUBROUTINE OUTPUT 
C 

♦CALL VCFT4 
C 

WRITE (IDWRITE, 1002) 

WRITE (IDWRITE,*) OTE,0. 

WRITE (IDWRITE, 1000) 

WRITE (IDWRITE,*) ROCNSID, RADIUS, TIM: 

WRITE (IDWRITE, 1007) 

WRITE (IDWRITE,*} VISC, GAM, CtR 
WRITE (IDWRITE, 1001) 

WRITE (IDWRITE,*) IRON, IETWE 
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WRITE (IDWRITE, 1005) 

WRITE (IDWRITE,*) IM'iXA(l),NCOL,IM\X,lJDDL 

WRITE (IDWRITE, 1009) 

DO 5 LI-1, IMAX 

WRITE (IDWRITE,*) LI,tt-W<A(LI) 

5 CONTINUE 

WRITE (IDWRITE, 1010) 

DO 10 I-l,NCOL 

WRITE (IDWRITE,*) I,XIEO (I) ,WTR(I) 

10 CONTINUE 

WRITE (IDWRITE, 1020) 

DO 20 J-l , IDOL 

WRITE (IDWRITE,*) J,CTH(J),wrTH(J) 

20 CONTINUE 

WRITE (IDWRITE, 1030) 

CO 30 LI-1, IMAX 

DO 40 NI-1,NWA(LI) 

WRITE (IDWRITE,*) LI,NI,ALP(NI,LI) 

40 CONTINUE 
30 CONTINUE 


c P(k+1)- ( f (k+1) *x +d(k+l) )*P(k) - e(k+l)*P(k-l) 
c 

c D(I) : diagonal of symmetric tridiacpnal matrix 
D(I)— A2K/A3K 
IF(I.EQ.N) GOTO 100 
C 

C F-A1K/A3K 

F-1.0 
C 

K-I 

C replace coefficients here 

TEMP- (2.*K+PC-2. ) * (2 . *K+PC-1. ) * (2 . *K+PC) 
A3K-TTM>* (2 . *K+PC+1 . ) * (2 . *K+PC-1. ) 

A4K-K* (K+QC-1 . ) * (K+PC-1 - ) * (K+PC-QC) * (2 . *K+PC+1. ) 

C ■ - e nd replace ooeff 

c 

E-A4K/A3K 

B(I+l)-OSGKT(F*E) 

C 

100 OCNITNUE 

c 

c Find eigenvalues and eigenvectors 
VRNTX- .TRIE. 

M3IM-90 

CALL TRXEIGD (NDIM, N, D, B, VfiWDt, X) 


1002 FORMAT (5X, *TIM: , ,13X, 'ZCENT') 

1000 FCR-AT (5X, ‘RCCNST'jlOX, ‘RADIUS*, 10X, 'TTMEo' ) 

1001 FOR-ftT (5X, ' IREN' , 1QX, * IFRAME' ) 

1005 FCFJ-ftT (9X, 'NMAX',8X, 'NCaL',8X, ‘IMAX',8X, 'ICOL‘) 

1009 FORINT (5X, 'LINDEX*,10X, ’NM«(L) ') 

1007 FORMAT ( 5X, 'VISC*, 12X, 'GAM', 12X, 'Core to Ring radius') 

1010 FORMAT ( 10X,’I',7X, 'XI (I) ' , 10X, 'WTR(I) ' ) 

1020 FORMAT ( 10X, ' J\7X, 'CTH(J) ' ,10X, 'WrTH(J) ' ) 

1030 FCW-AT ( 9X, 'LI',1CK, 'NI',7X, *ALP (NI,LI) ' ) 


RETURN 

END 


C 

C 


SUBROUTINE QUAD(N,WTS,XIS,D) 


C 

C rote that this is also particular to the polynanial 

c CALCULATE MJb - integral from a to b of the weight function 
c where a and b are the appropriate limits far the polynanial 

WIT-PI/2. 

c — — 

c 

C Normalize eigenvectors 
DO 20 J«1,N 
XN-0.0 

DO 30 I-1,N 
XT-X (I, J) 

XN=XT*XT+XN 
30 CONTINUE 

X (1, J)=X{1, J)/XN 
20 ODNTINUE 


C This routine calculates the weights ana absisscas for orthcgcnal polynonia 
c guadriture routines. It can be used for any orthcgcnal polyncmiais by 
c replacing the coefficients AK1,AK2,AK3,AK4 with the appropriate ones froa 
c the 3 term recurrence relation (p. 782 Ahraancwitz and Stegun) 

C 10A1/86: modified for p-1, q-1/2. check case worked to all signif. figur 
C 

LOGICAL WANIX 
REAL XIS (90) , WTS (90) 

DOUBLE PRECISICN D(90) ,B (90) ,X (90, 90) ,WT(90) ,A1K,A2K, 

1 A3K,A4K,F, E,WTI,XT,XN,TEM?,PC,QC,PI 
C 

PI - 3.14159265358979323846 
C 

PC - 1.0 
QC - 0.5 

D (1) - QC/ (PC+1. ) 

1-1 
K-I 
F-1.0 

TH-P- (2 . * K+PC-2 . ) * (2 . *K+PC-1 . ) * (2 . *K+PC) 

A3K-TEMP* (2 . *K+PC+1 . ) * (2 .‘K+PC-1 . ) 

A4K-K* (K+QC-1 . ) * (K+PC-1 . ) * (K+PC-QC) * (2 . *K+PC+1 . ) 

E-A4K/A3K 
8(I+1)-DSCFX(F*E) 

C 

DO 100 1-2, N 
K-I-l 

C input the following ooefficients for a given polyrcmiar 
c Ref. Abrcmowitz and Stegen p. 782 

C reo lace coefficients here _ 

TEMP- (2 .‘K+PC-2. ) * (2. *K+PC-1 . ) * (2. *K+PC) 

AIK-TET^P* (2.*K+PC+1.) * (2.*K+PC-1. ) 

A2K— (2.*K* (K+PC)+QC* (PC-l.))*TEhP 
A3K-TEhf>* (2 . *K+PC+1 . ) * (2 . *K+PC-1 . ) 

A4K-K* (K+QC-1.)* (K+PC-1.)* (K+PC-QC) * (2.VK+PC+1.) 

C end replace coeff— 

C 

C Combine coeffiecients t be in the recurrance form: 


C 

C Calculate weights 
DO 40 J*1,N 
XT-X(1,J) 
wr(j)-xT*xr*wn 
40 CONTINUE 
c 

C Arrange Points In Asscending Order. 

DO 200 M-N, 2, -1 
DO 210 1-2, M 

IF (D (1-1) .LT.D (I) ) GO TO 210 
TEMP-0 (I— 1) 

D(I-1)-D(I) 

DdJ-TEM 5 
TEhP-WT(I-l) 

WTd-l)-WT(I) 

WT(I)-TEMP 
210 CCNITNUE 
200 CCNITNUE 
C 

CO 220 J-1,N 
WTS ( J) -WT (J) 

XIS(J)-0(J) 

220 CCNITNUE 
C 

REIUFN 
END 

C — 

c 

SUBROUTINE QUADAZ(N,WT5,DS) 

C This routine calculates the weights and absisscas far orthocpnal poiyr.o-aa 
c quadriture routines. It can be used fer any orthogonal polyncmiais by 
c replacing the coefficients AKL, AK2,AK3,AK4 with the appropriate cr.es frer. 
c the 3 term recurrence reiaticn (p. 782 Acreanowitz and Stegun) 

LOGICAL WANTX 
REAL WTS (139), DS (139) 

REAL D(139) ,B(139) ,X{139, 139) ,WT(139) , 

1 A1K,A2K, A3K, A4K, F,E,Wn,XT,XN,AM.' 

C 
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PMJ - 0. 

CO 100 I-1,N 
K-I-l 

C input the following coefficients for a given polynomial 
c Ref. Abrarowitz and Stegen p. 782 

C replace coefficients here 

AlK-K-AMJ+1 . 

A2K-0. 

A3K-2.*K+1. 

A4K-K+AMJ 

C end replace coeff 

C 

C Carbine cceffiecients t be in the recurrance farm: 
c P(k+1)- ( f (k+1) *x +d(k+l) )*P(k) - e(k+l)*P(k-l) 
c 

c D(I) : diagonal of symmetric tridiagcnal natrix 
D (I ) — A2K/A3K 
IF (I.EX3.N) GOTO 100 
C 

F-A1K/A3K 

C 

K-I 

C replace coefficients here 

A3K~2.*K+1 

A4K-K+AMJ 

C end replaae coeff 

c 

E-A4K/A3K 

B(I+1)-92RT(F*E) 

C 

100 CONTINUE 
C 

c Find eigenvalues and eigenvectors 
WANTX- .TRUE. 
fEIM-139 

CALL TRIEIG (NDIM,N,D, B,WANK,X) 

C 

C race that this is also particular to the polynomial 

c CALCULATE MJO - integral from a to b of the weight function 
c where a and b are the appropriate limits for the polynomial 

wri-2. 

c — 

C 

C Normalize eigenvectors 
DO 20 J-1,N 
XN-0.0 

DO 30 I-1,N 
XT“X(I,J) 

XN-XTKT+XN 
30 CONTINUE 

X(l,J)-Xa,J}/XN 
20 CONTINUE 
C 

C Calculate weights 
DO 40 J-1,N 
XT-X(1, J) 
wr(j)-xT»xx^wn 
40 CONTINUE 
C 

C ARRANGE POINTS IN DESCENDING ORDER. 

DO 200 M-N,2,-l 
DO 210 I-2,M 

IF (D (I— 1} ,GT.D (I) } GO TO 210 
TEMP-0 ( 1-1} 

D (I-l)-O(I} 

D (I)-IEMP 

TEMP-WT(I-l) 

wrd-i)-wr(i) 

WT (1) wiEMP 
210 CONTINUE 
2C0 CONTINUE 

DO 220 J-1,N 
WIS (J) -WT (J) 

DS (J) -O (J) 

220 CONTINUE 

RETJRN 

END 


C — 

SUBROUTINE TRIEIG <NDIM,N,D,E,WANrX,X) 

INTEGER tDIM,N 
LOGICAL WANIX 

C DCUBIE PRECISION D(NDM ,E (NDIM) ,X(N)IM,NDIM} 

REAL D (N0IM) , E (fDIM) , X (LDIM, tDIM) 

C 

C Caiputes Eigenvalues And Eigenvectors Of Real Trldiaganal Symmetric 
C Matrix 
C 

C IDIM - declared row dimension of A (AID X) . 

C N - order of A 

CD- N-VECTOR. output, eigenvalue 

C E - N-VECTCR. lower diagonal of synmentric matrix E(2) — E(N) 

C WNK - .TRUE, if eigenvectors desired, .FALSI, if not. 

C X - N-BY-N MATRIX 

C IF (VWffiO THEN OUTPUT X(*,J) IS EIGENVECTOR ASSOCIATED 
C WITH EIGENVALUE D ( J) . 

C 

C DOUBLE PRECISION ALPHA, BETA, GAM-A, KAPPA, AIJ,T,C,S,F 

REAL ALPHA, BETA, GW-Mft, KAPPA, AIJ,T,C,S,F 
C DOUBLE PRECISION DABS,DSCRT 
C 

C Initialize X As An Idenity Mfetrix 
DO 101 I-1,N 
DO 102 «>1,N 

xa,j}-o.o 

102 CONTINUE 

xa,i)-i.o 

101 CONTINUE 

C TRIDIAGONAL ALGORITHM 

C IMPLICIT SHIFT FROM LOWER 2-81-2 

C 

20 DO 27 MB - 2, N 

M - Nt-2-MB 
mi - m-i 
ITER - 0. 

L - 1 

21 E(I) - 0. 

C 

C FHD L SUCH THAT E(L) IS NEGLIGIBLE 

C 

L - M 

C 22 S - DABS (D(L-l)) + DABS (D(L)) 

22 S - ABS(D(L-1}> + ABS(D(L)> 

C T - S + DABS (E (L) ) 

T - S + ABS(E(L)) 

IF ( T .EQ. S ) GOTO 23 
L - L-l 

IF (L.GE.2) GO TO 22 
C 

C IF E(M) IS NEGLIGIHLE, THEN D CM) IS AN ETLSNVALUE, SO ... 

C 

23 IF (L.EQ.M) GO TO 27 

IF (ITER.GE.30) GO TO 27 
ITER - ITER + 1 
C 

C FORM IMPLICIT SHIFT 

C 

T - CDCM-1) - D(M))/(E(M) + E (M3 ) 

C S - DSQRT(1. + ITT) 

S - SQRT(1. + T*T) 

IF (T.LT.0.) S - -S 
S - D CM) - E(M)/(T+S) 

E(L) - D <L) - S 
F - E(Lfl) 

C 

C CHASE NONZERO F DOWN MATRIX 

C 

DO 26 J - L, MM1 

C T - DABS(E(J) ) + DABS (F) 

T - ABS(ECJ)) + ABS(F) 

C ALPHA - T*D9QRT ( (E (J)/T) **2 + (F/T}*’2) 

ALPHA - T*3QRT((E(J) /T)**2 + (F/T) **2) 

C - E(J) / ALPHA 
S - F / ALPHA 

BEHA - S*(D(J+1) - D(J)) +2.*C*E(J+1) 

E (J) - ALPHA 

E(Jd) - E (J+l) - C*BETA 

T - S*BETA 
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D(J) - D(J) + T 

C 


S - SQRT(1. + T*T) 


D(J+1) - D ( J+l) - T 



IF (T.LT.0.) S - -S 


IF (J.EQ.MtL) GO TO 24 



S - DIM) - £<M)/(T+S) 


F - S*E (J+2) 



E(L) - D(L) - S 


E (J+2) - -C*S(J+2) 



F - E(L+1) 

c 

24 IF (.NOT.WANTX) GO TO 26 

c 


CHASE NONZERO F DOWN WTRIX 


DO 25 I - 1, N 

c 




T - X(I,J) 



DO 26 J - L, Mil 


X(I,J) - C*T + S*X(I,J+1) 



T - DABS(E(J) ) + DABS(F) 


X(I,J+1) - S*T - C*X(I, J+l) 

c 


T - ABS(E (J) ) + ABS(F) 


25 CONTINUE 



AIPHA - T*DS2FT((E(J)/T)**2 + (F/T)**: 

c 


c 


ALPHA - T*32RT{ (E (J)/T)**2 + (F/T)**: 


26 CONTINUE 



C - E(J) / ALPHA 


GO TO 21 



S - F / ALPHA 

c 




BETA - S* (D (J+l) - D(J)) +2.*C*E(J+1) 


27 CONTINUE 



E (J) - ALPHA 


RETURN 



E(Jfl) - E(J+1) - C*EETA 


END 



T - S*BEHA 
n r.Ti •» n ( + t 

c 

SUBROUTINE TRIEIGD (N3IM,N,D, E,WANIX, X) 



Uv«J/ ■* VW/ ' *■ 

D (J+l) - D (J+l) - T 


INTEGER M)IM,N 



IF (J.EQ.MQ) GO TO 24 


ICGICAL WANTX 



F - S*E(J+2) 


DOUBLE PRECISION D (NDIM) , E (NDIM) , X (NDIM, NDIM) 



E(J+2) - -C*E(J+2) 

c 

REAL D (NDIM) , E (fCIM) , X (NDIM, fCIM) 

c 



c 



24 

IF (.NOT.WANTX) GO TO 26 

c 

Canutes Eigenvalues And Eigenvectors Of Real Tridiagonal Symmetric 



DO 25 I - 1, N 

C Matrix 



T - X(I,J) 

c 




X(I,J) - C*T + S*X(I,Jtl) 

c 

NDIM - Relaxed row dimensden of A (AND X) . 



X(I, J+l) - ST - C*X(I,J+1) 

c 

N - order of A 


25 

CONTINUE 

c 

D - N-VECTOR. output, eigenvalue 

c 



c 

£ _ N-VECICR. lower diagonal of synmentric matrix E(2)...E(N) 


26 

CONTINUE 

c 

WANTX - .TRUE. if eigenvectors desired, .FALSI, if not. 



GO TO 21 

c 

X - N-3Y-N tftTRLX 

c 



c 

IF (WANDC) THEN OOTPUT X(+, J) IS EIGENVECTOR ASSOCIATED 


27 

CCNITNUE 

c 

WITH EIGENVALUE D(J) . 



RETURN 

c 




END 


DOUBLE PRECISION ALPHA, BETA r GAMft, KAPPA, AIJ,T,C,S,F 




c 

REAL AIPHA, BETA, GAMA, KAPPA, AIJ,T,C,S,F 





DOUBLE PRECISION DABS,DSQKT 




c 

c 

Initialize X As An Idenity Matrix 





CO 101 I-1,N 





DO 102 J-1,N 





X(I,J)-0.0 





102 CONTINUE 
X(I,I)-1.0 
101 CCNITNUE 

C TRIDIAGCNAL OR AliXRIWI 

C H^LICIT SHIFT FROM ICMER 2-BT-2 

C 

20 DO 27 MB - 2, N 

M - N+2-MB 
Mil - M-l 
ITER - 0. 

L - 1 

21 E(L) - 0. 

C 

c FIND L SUCH THAT E(L) IS tEGLIGIBLE 

C 

L - M 

22 S - DABS(D(L-1) ) + DABS (D (L) ) 

C 22 S - ABSCDCD-1)} + ABS(D(L)) 

C T - S + DABS(E(L) ) 

T - S + ABS (E (L) ) 

IF { T .EQ. S ) GO TO 23 
L - L-l 

IF (L.GE.2) GO TO 22 
C 

C IF E<M) IS NEGLIGIBLE, THEN D(M) IS AN EIGENVALUE, 90 ... 

C 

23 IF (L.EQ.M) GO TO 27 

IF (ITER. GE. 30) GO TO 27 
ITER - ITER + 1 
C 

c FORM IMPLICIT SHIFT 

C 

T - (D (M-l) - D (M) ) / (E (M) + E (M) ) 
s - Dsorrd. + T*T) 


Appendix I 
Navier-Stokes Code 


In this appendix, the Navier-Stokes code is described and the listing is included. 
We begin by deriving the working equations for the axisymmetric Navier-Stokes 
calculation. Next, a brief flowchart outlines the structure of the code by showing 
the first level of subroutines. A detailed flowchart follows of the algorithm used in 
transforming to and from coefficient space (in 0(N 3 ) operations). Next, we include 
a FLOP (floating point operations) trace showing the breakdown of the speed and 
percent of total time spent in each subroutine. Finally, the code is listed. 

To get the working equations, we start with the weighted residual equation, 
(2.2.1). As described in section 2.2, the term involving the gradient of the pres- 
sure drops because of the divergence-free expansion and boundary conditions. The 
weighted residual equation therefore reduces to (2.2.3). Next, we substitute the 
axisymmetric velocity expansion, (3.2.1), into (2.2.3) and take the time-dependent 
coefficients outside of the integrals. The result is a set of N x N coupled ordinary 
differential equations for each i : 

- vB+M a+ m =< u x W> V x (/+,x; m ) > (1. 1) 

Differencing equation (1.1) in time then gives 


■<■„(() A = Bl n (C)a j nt - (3 Q J n , t - Q j n 7 t l )At 


( 1 . 2 ) 


The elements of the matrices A+, n (£) and were computed analytically using 

MACSYMA. output as FORTRAN statements, and pasted directly into the code. 
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At the start of a calculation, these non-zero matrix elements are computed once (in 
double precision) and stored (in single precision). From this, the differenced form 
of the matrices, A^ n , n (i) and are computed and stored in place of A+, n (£) 

and 

Figure (LI) illustrates the structure of the Navier-Stokes solver, where the 
words with bold capital letters denote subroutines. The chart on the left is the 
general flowchart while the one on the right describes TIMEINT in more detail. 
INITIAL reads the coefficients defining the initial vector field obtained from IC. 
Next, JACOBI and LEGENDRE, solve for the basis functions at the collocation 
points and store them in arrays. For each index £, the mass matrix (FORMA) and 
viscous matrix (FORMB) are evaluated and combined appropriately in PREINT 
for the difference equation. TIMEINT then advances the coupled set of ordinary 
differential equations in time. The flowchart to the right describes the steps taken 
to advance the solution in TIMEINT. 

The program marches forward in time for a specified number of time steps, 
ncloop , with the nonlinear term treated as a forcing on the right hand side of the 
equation and computed pseudospectrally. Several diagnostics such as ring speed, 
impulse, momentum, etc. are also computed in the FORCING, and every so often, 
data is written to a file in the form of numbers and plots. The advancement of the 
centroid is computed from the ring speed, the coefficients are advanced in time, and 
the process repeats. 
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Figure 1 . 1 . Flowchart of the Navier-Stokes solver, NS. 


FORCING 


write output file to 
CRAY and plot 
contours (occationally) 


compute centroid 
(i.e. ring speed) 


advance coefficients by 
solving rhs of eqn. 1.2 


advance time 
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Figure 1.2. Flowchart for transforming to and from coefficient space in 
0(N 3 ) operations. 












;ure 1.3. FLOP (floating point operations) trace for leapfrogging solu- 
tion shown in figure (5.11) (actually, 1/3 of the total time). 


*** 


FLOP TRACE *♦* VERSION 


8 FORCING 
7 TIMEINT 

17 MAT MULT 

2 JACOBI 

12 PLTCONT 
16 CONDI 2 

13 CONTXX 

9 MATMULT2 

5 FORMS 

10 OUTPUT2 
1 INITIAL 

18 OUTPUT 
4 FORMA 

11 STREAMF 

6 PREINT 

14 FRANGE 

3 LEGENDRE 

15 CONSCL 


CALLED TIME(SEC) 
2401 2.82E+02 
1 5.60E+01 
156000 8.52E+00 
1 4.83E+00 
3 2.71 E+00 
18 1.95E+00 
12 9.70E-01 
15665 B.88E-01 
65 3.68E-01 
161 3.23E-01 
1 2. 14E-01 
1 1.B7E-01 
65 1.55E-01 
3 1.08E-01 
65 7.15E-02 
17 4.21E-02 
1 5.05E-04 
9 2. 28E-04 


AVE-TIME 

1 . 17E-01 

5.60E+01 

5.46E-05 

4.83E+00 

9.03E-01 

1 . 08E-01 

8.08E-02 

5.67E-05 

5 . 67E-03 

2.01E-03 

2.14E-01 

1 . 87E-01 

2 . 38E-03 

3.60E-02 

1 . 10E-03 

2.47E-03 

5.05E-04 

2.54E-05 


SAGE 
78.45 
15.61 
2.37 
1 .34 
0.75 
0.54 
0.27 
0.25 
0.10 
0.09 
0.06 
0.05 
0.04 
0.03 
0.02 
0.01 
0.00 
0.00 


ACCUMS 

78.45 

94.06 
96.43 

97.78 
98.53 

99.07 
99.34 
99.59 
99.69 

99.78 
99.84 
99.89 
99.94 
99.97 
99.99 

100.00 

100.00 

100.00 


PROGRAM TIME - 
0 0 PROGRAM 


359.1224085050 SECONDS 
1 3.59E+02 3.59E+02 100.00 100.00 


NOTES i 

ASSUMED TRACE OVERHEAD - 300-600 CP PER CALL 

CLOCK PERIOD ■» 9.50E-09 SECONDS 

ONE USER DIVISION - 3 MULTIPLIES AND 1 RECIPROCAL 


EXECUTION DATA: 

TIME EXECUTING IN CPU - 
TIME WAITING TO EXECUTE - 
TIME WAITING FOR I/O - 
TIME WAITING SEMAPHORE - 
JOBTIME - 

TIME WAITING IN INPUT QUEUE - 
MEMORY • CPU TIME (M#DS*SEC) - 
MEMORY ♦ I/O WAIT TIME (MWDS*SEC 
MEMORY • SEM WAIT TIME (MWDS*SEC 
MINIMUM JOB SIZE (WORDS) - 
MAXIMUM JOB SIZE (WORDS) - 
MINIMUM FL (WORDS) - 
MAXIMUM FL (WORDS) - 
MINIMUM JTA (WORDS) - 
MAXIMUM JTA (WORDS) - 


0000:06:22.9583 

0000:43:12.2579 

0000:00:04.6046 

0000 : 00 : 00.0000 

0000:06:25.9199 

0000:00:00.0212 

605.78656 

2.67601 

0.00000 

17408 

1829376 

13312 

1822720 

4096 

7168 


.0 


ADDS MULTS RECIPS FLOPS MEM/FLOP WEM/SEC MFLOPS 

1.02E+10 7.49E+09 1.37E+07 1.77E+10 1-34 84.54 62.92 

6.97E+0B 6.77E+07 2.64E+04 7.64E+08 2.28 31.07 3. 

1.00E+08 5.22E+07 1.56E+05 1.52E+08 2.26 40.36 17. 9 

4.15E+07 9.45E+07 7.85E+05 1.37E+08 1.03 29.31 2 ‘ 17 

2.75E+06 2 . 59E+06 5.29E+05 5.87E+06 5.75 ]2.47 ?' 80 

1.64E+06 1.52E+06 3.58E+05 3.52E+06 6.66 12.02 1.80 

1.18E+06 8.95E+04 1.79E+04 1.28E+06 5.26 6.97 1.33 

1.01E+07 5.24E+06 1 .57E+04 1 . 53E+07 2.27 39.16 H.25 

3.78E+06 5 . 57E+06 6.B1E+04 9.42E+06 0.82 21.05 25.5 

0.00E+00 0 . 00 E+00 0.00E+00 0.00E+00 0-00 ^ 

1 :88E+03 7 . 22E+04 2.86E+02 7.44E+04 22.98 7.98 0.35 

4.79E+03 1.63E+04 0.00E+00 2.11E+04 0 ?’ 7 « 27 52 

1.61 E+06 2.62E+06 4.15E+04 4.26E+06 0.86 23.75 27.5 

1.54E+06 1.53E+06 1.36E+04 3.08E+06 1.80 51.47 28.53 

7 . 1 9E+05 1.09E+05 1.08E+04 8.40E+05 2.18 25.59 11. 

1.67E+05 0 . 00E+00 0.00E+00 1.67E+05 1.58 6.29 3.98 

9.50E+03 2.81 E+04 5.34E+02 3.82E+04 0.84 63.73 75.53 

4 . 35E+02 5.14E+02 5.00E+01 9.99E+02 1.89 8.26 4.38 


1.11E+10 7.72E+09 1.57E+07 1.88E+10 1-39 72.87 52.41 


CO 
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♦CODECK ARRAYS 

PARAMETER ( NCD- 92 , LCD -92 ) 

PARAMETER ( MD- 92 , 1 M >92 ) 

COM 7 N/PAFM 2 / M-RXA (IM 3 ) ,AIP (M>D,IM 3 ) 

C double precision stuff: 

DOUBLE PRECISION XIDO,PaCNTID 
CXMDN/COCBiy XKD(NCD),RC 3 CNSTD 
C quantities at collocation points: 

CCMDN/COLL/ XI (NCD) ,CTH (LCD) ,R(NCD), 

1 UR(Na5,IXT>),Urm(Naj,ICD), 

2 CfDG(NCD,irD),SFUrC(IXD,IlD),SA(IXD 

3 XY (NCD, LCD, 2 ) ,F (NCD, LCD) 

C general quantities: 

CCMDN/GNRL/ WIR(NCD) ,WTffl (LCD) ,SM (LCD) 

C radial basis functions 

CCMCN/JAC/ GR(MD r LMD,NCD) ,GTH (MD, IM),NCD) , GV (MU, IM 3 ,NCD) , 
1 RJPC (NCD) ,FJAC (lO) , F 2 JAC (NCD) 

C Polar basis functions: 

CCMDN/LEGENDRE/ PO (HD, LCD), Pi (IM),LCD) 

C Impulse calculation: 

CCMDN/IMPULSE/ CTM* (MD) 

C ffess and viscous mar.ri.nps: 

CCtMCN/MATRIX/ AMAT (MD, 6 ) , EMW£WD, 6 ), BVEC(ND), 

1 AMOSa^D,6,IID), EMMS (JM), 6, HD) , 

2 AMME(Nd,4,IM3} 

C Energy and dissipation calculations 
OCMDN/ENERGY/ DISV (M<D) ,ENV (MU) 

C Arrays which are local to particular subroutines 
DOUBLE PRECISION G, ROFUNC, FUNC 
OCM-EN/SJAC/ G(N«,N 3 ),RDEUNC(NCD),FUNC(MX>) 

CCMDN/SPREINr/ AINV(MD, 6) ,BTEMP (MD, 6) 

OCMDN/STIME/ RHS (MD) , CCNVML (ND, IMD) , DEISOIN (MD) 

C 1 ,DAIPOID (MD,IMD) 

CCMDN/SPORC/ VELRA(LCD) ,VELTA (LCD) ,\URXA.(LCD) ,ODEF (IfD) , 

1 P 0 FUN(IMD, LCD), RD 2 (NCD) , SIMLA (NCD),SLM 2 A (NCD), 

2 PUXM(MD),P2EtM(MD>,OCNV(MD,IMO) ,P1FUN(DD,LCD) 

C 3 ,Q(NCD,LCD, 4 ) 


C IFRX - nurber of terms with index 1 

C LCOL - number of conocatlon points in the polar direction 
C RACppo - initial radius of vortex ring in ccrrpu rational coordinates 
C ROCNST - constant which Is optimized for clustering around core 
C PI - constant pi 
C OUTHJT: 

C 


C 

Q 

name 

unit 

# description 

c 

ICREAD 

2 : 

initial condition 

c 

MBEAD 

5 : 

time marching parameters 

C 

LWRITE 

6 : 

debugging stuff 

C 

LVAX 

7 ; 

final solution; sent to VAX 

C 

IdOBAL 8 : 

global quantities at each time step; sent to Cray 

c 

c 

ICRAY 

9 : 

complete solution at specified times; sent to Cray 

V* 

♦CALL PAFMS 
♦CALL ARRAYS 


C inputs and initialization: 
CALL INITIAL 
CALL JACOBI 
CALL LEGEN DRE 

C form matrices: 

DO 10 LIC-1,IMW 
CALL FOfMA 
CALL FOFMB 
CALL PREINT 
10 OCNTINUE 

C integrate: 

CALL TIMEIOT 
call dcnepl 


♦CCMDECK PAFM5 

PARAMETER ( PI-3. 1415 92653 58979323846) 

PARAMETER (ICREAE-2, NPEAD-5, INRITE-6, LVAX-7 , LGLOBAL-8, ICRAY-9, 

> LPLCT-10) 

OCMDN/PAH4/ RADppO,R02CT,TT>E,VTSC,GAM,N^,I>ftX, 

> F5/EIP, TINC, TSIOP, NCOL, LCOL, CtR, TDDo, CIRC, RATXp, 

> ZCoR, Rj>SW?, RIM?QQ,DIMP, RVELPP, RDM, ECENT, ICFIAG 
CCMDN/PRINT/ LIC,iRLN, 

> nrLXP,iL00P, 

> NCRAY, jCRAY, 

> NGLCBAL, jGIOBAL, 

> M’lOT, 1PIOT, jPLOT, j2PICTT 


C output: 

'call output 

STOP 

END 


C SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS SSSSSS SSSSSSSSSSSSSSSSSSSS5SS5SSS 

SUBROUTINE INITIAL 

♦CALL PAFMS 
♦CALL ARRAYS 


♦DECK NSMUN 

CCCCCCCOCCCOCCCC START CF MVIN PROGRAM 
C 

C This is a program to find the evolution of the coefficients in the 
C spectral Stokes equatiicn. 

c jNPME - indicates a flag, 0 or 1 
c riWD - do NAME every n loops 

C nrNAME - indicates the total Number of Records of NAME 
c iNAME - indicates the current # of NAME 


C MD - array dimension (> or - M-AX+3) 

C NED - array dimension (> or - NCOL) 

C L'D - array dimension (> or - IMRX) 

C LCD - array dims ns ion (> or - LCOL) 

C CCLLOC: XI (NCD) - radial collocation points 

C WDR(NCD) - weights for Gauss-Jaccfoi quadrature 

C CTH (LCD) - polar collocation points 

C WITH (LCD) - weights for Gauss -Legendre quadrature 

C RfNCD) - radial coordinates cooresponding to XI (I) 

C JACOBI: G(MD,NCD) - Jacobi polynomials 

C 1£<3TDRE:P0 (LM)IM,LCD) - Associated Legendre poly, (m-0) 

C PI (KDIM, LCD) - Associated Legendre poly, (m-i) 

C MftIRIX: AMATRIX(MD,MD) - A matrix 

C a^\TRIX(MD,MD) - B matrix 

C RJAC (NCD) - r2 dr/d(psi) 

C COEFF: ALP (MD,LM3) - coefficients in the expansion 

C JMX - number of terms with index n 

C NCOL - nurber of collocation paints in the radial direction 


C initialize flag for PLTXXNT — initializing file 15 
JGICBAL - 0 
jPICT - 0 
j2PL0T - 0 

C Read starting condition 
C 

READ (tDEAD,1040) 

READ (MREAD, *) ICFIAG 
C time step, nurber of time steps: 

READ ODEAD,1040) 

READ (MREAD, «) TINC, nrLOOP 

C Every time steps, plot sain and write global Info 

READ (M^EAD,1040) 

READ (MREAD, 1040) 

READ (MREAD, »)NPLJT,NSLCBAL, NCRAY 

C Read data iron IC.FOR 
READ (ICREAD, 1040) 

READ (ICREAD, ») TT>E,2CcR 
READ (ICREAD, 1040) 

READ (ICREAD,*) RCCNSID, RACppo, TIMEo 
READ (ICREAD, 1040) 

READ (ICREAD,*) VISC, GAM, CtR 
READ (ICREAD, 1040) 

READ (ICREAD,*) IRON, iPLCT 
READ (ICREAD, 1040) 

READ (ICREAD,*) MMAX,NCOL, LMttX, ICOL 
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c 


READ (ICREAD, 1040) 

DO 5 LI-1, IMAX 

READ (ICBEAD,*) II,M«XA(LI) 

5 CONTINUE 

READ (ICBEAD, 1040) 

DO 10 I-l,NCOL 

READ (ICBEAD,*) II,XIDD(I) ,WTR(I) 
10 CONTINUE 

READ (ICREAD, 1040) 

DO 20 J— 1,IC0L 

READ (ICBEAD,*) JJ,CTH(J),WTTH(J) 
20 CONTINUE 

READ (ICREAD, 1040) 

DO 30 LI-1, IM« 

DO 40 NI-1,M^XA(LI) 

READ (ICREAD,*) LL,EN,ALP (NI,LI) 
40 CCNITNUE 
30 CCNITNUE 

1040 FOftttX (IX) 

RCCNST - RCCNSTD 


C compute a few quatities, used throughout the program 


C Find the oorrespcnding radial values for the collocation points 
DO 50 I-1,NC0L 

XI (I) - XH3D(I) 

XII - XI (I) 

R(I) - RCCNST*(XIl/(l.-XIl))**(l./2.) 

SO OCNTINUE 

c cxnpute the coefficients in the multipole expansion for the Impulse 
CFACT - SORT (2. /PI) 

CIXP(l) - 4. * PI * ROCNST*FCCNSr * CFACT 
DO 110 NT - 2,fM« 

RN - REAL(NI-l) 

DOM - (2.*FN+1.) 'CFACT 
CIlP(in)-00M*4.*PI*RCCNST*FCCNST 

110 OCNTINUE 

RETURN 

END 

Q gc; gc;<;c;CLq^<rqS5t SSSSSSSS£SSSSSSSSSSSSSSSSS5SSSSSSSSSSSSSSSSSSSSSSS.SSSS£ 

SUBROUTINE JACOBI 

C this subtroutine is defined for p - 2*el - 1, q - ei - 1/2 

•CALL PARM5 
•CALL ARRAYS 

C G(NI,I} or G (IT'D, NED) 

rrrwn precISICN N,EL,DUM,GNCFM,XID,Pl,VrHl 
REAL ARGl,ARG2,3^0FM,GAm\ 

R1 - RCCNST 


C Evaluate r^2 dr/d(xi): 

C 

DO 5 I-l,NCOL 

C r"2 * d(xi)/dr 

RJPC(I) - 0.5*R1*R1*R1 *XI(I)**<l./2.)/ (l.-XI(I) )**(5./2.) 
c r*2 * d(xi)/dr / w(x)01-l 

FJAC(I) - 0.5*R1*R1*R1*XI(I) / (1 .-XI (I) ) **3 
c ( jT2 * d(xi)/dr / w(x)@l-l ) * WEr-quadrature 

F2JAC (I) - 0.5 * RCCNST* *3 * WTR(I) *XI (I) / (l.-XI (I) ) *'3 
5 CCNITNUE 


C Evaluate GR, GTH, GV: 


DO 50 LI - l,IhPX 
EL - LI 

C ccmpute the Jacobi Polynomials for all n and xi at a given EX. 

C this is only an intermediate result, it is not needed outside of 
C this subroutine. 

DO 10 1 - l,NEOL 
C n - 0, NI - 1 

ARGl - 2*EL-1 
ARG2 - (2*EL-l)/2.0 

SNCiM - 3JRT (2 . ) *SQFT (GM-M\ (ARGl ) ) /GAM^i (ABG2) 

043*1 - SNOfW 
G(1,I) - l.OdtO 
C n - 1, NI - 2 

XID - XIDD(I) 

G(2,I) - (4*EX*XID-2*EL+1)/DSCRT(2*EX-1) 

10 CCNITNUE 

C general recurranoe fonmila - at that particular el. 

C Note: if necessary, seme memory can be saved fcy storing cnly 
C 5 Gn's at a given time... Gn+2, Qi+1, Gn, Gn-1, Oi-*2. 

DO 20 NI - 3,I'WAXA(LI)+2 
DO 30 I-l,NCOL 

N - NI-2 
XID - XIEDd) 

G(NI, I) - ( ( (4*N**2+ (8*ElM)*Nt4*EX**2-4*EX) *XID-2*N**2+ (2- 

1 4*EL) *N-2* EX** 2+ 3* EX-1 ) *G (NI-1,I)+ (-N*DSQRT (N**2+2*EL*N-2*N)- 

2 EX*D30RT (N**2+2*EL*N-2*N) ) *G(NI-2, 1) ) / ( (N+EX-1) *DS<BT (N**2 

3 +2*EX*fH-2*EIr-l) ) 

30 CONTINUE 
20 CONTINUE 

DO 56 I - 1,NC0L 
XID - XICD(I) 

ROFUNE(I) - Rl* (1-XID) ** ( (— 1.0dtQ)/2.0dfrO-(-EL-3)/2.0dtO) * 

1 XID** (1.0d+0/2.0dK)-(2-EL) /2.0d+O) 

FUNG (I) - (1-XID) ** ( (-EL-3) /2.0dt0) *XID** ( (2-£L) /2.0dt0) 

56 CONTINUE 

C ccmpute the r component of the vorticity basis function 
DO 71 NI - l,N-ftXA(LI) 

N - NI-1 

DO 81 I - 1,NCGL 

GR(NI,LI,I) - CNCBM * G(NI,I)*EL*(ELtl}*RDFUNC(I)/Rl**2 

81 OCNTINUE 

71 OanTNCE 

C ccmpute the theta corpcnent of the vorticity basis function 
'DO 62 I - 1,NC0L 
XID - XIDO(I) 

VTHI - XID**(EL/2.0dtG+(-1.0dtO)/2.0d+0)*(XID*((2*ELH)* 

1 (1-XID)** (EX/2.0dtO)*XnX-3*EX-2)*(l-XID)**(EX/2.0d+O)) + 

2 (EL+1)* (1-XID)** (EL/2. 0ch0))/Rl 
GTH(1,U,I) - GNDEW * VTHI 

62 OCNTINUE 

DO 72 NI - 2,M-¥'iXA (LI) 

N - NI-1 

DO 82 I - 1, NCOL 
VTHI - 

l ( ( (-2*EM*EX+1)*W- (1-2*EL) *EX+1) *DS2RX(N**2+2*EL*N+2*EL-1) * 

1 G (NI+1,I) + (N* (4*Nt-8*EX-4)+EL* (4*EX-3)-l) *G (NI, I) + 

2 (N* (2*N+4*EL-3) +EL* (2*EL-3) ) *DSCFT CN**2+ (2*EL-2) *N)*G (NI-1, 1 

3 /( (N* (4*Nt-8*EX-4)+EX* (4*EX-4) ) *R1**2) 

GTH(NI, U, I) - GNCR4 * VTKl'RCFUNC (I) 

82 OCNTINUE 

72 CONTINUE 

C Krowing the Jacobi polynomials, compute (what amounts to) the 
C vorticity basis function. 

DO 60 I - l,NCOL 
XID - XIDD(I) 

dun - XID* ( (EX* (4»£L+8)+3) *XI>(-4*EL-8)*SL-3)/Rl**2 

GJ (1,11,1) - QCFM * dun/FJNCd) 

dum - XID* (XID* (EL* (EX* (16*EL+64) +60) *XID+EL* 
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1 ( (-24*EL-92) *£L-82)+3)+EL* (EL*(8*EL+28)+22)-3) 

2 /(DSQRT(2*£L-1)*R1**2) 

GV(2,LI,I) - GNOFW * dim/FUNC (I) 

60 CONTINUE 

DO 70 NX - 3,fWXA(LI) 

N - NI-1 

DO 80 I - 1,NC0L 
DOM - 

1 (<N* (N* (N* (4*N+16*EL-4)+EL* (24*EL-12)-13)+£L* (EL* (16*EL-12)-26}+7) 

1 +EL* (EL*(EL*(4*EIr-4)-13)+7)+6)*DSQRT(N**4+<4*EL+2)*N**3+<4*EL** 

2 2+10*EL-l } *N**2+ (12*EL**2+2*EL-2) *N+8*EL**2-4*EL) *G (NI+2, 1)+ (N 

3 * (N* ( (-8*N-32*EL+12) *N+ (32-48*EL) *EL+20) +EL* ( (28-32*EL) *EL+46)- 

4 18)+EL* (EL* ( (8-8*EL)*EL+26)-14)-12)*DSCFT(N»*2+2*EL*N+2*EL-l)* 

5 G (NI+1, 1)+ (N* (N* (N* (N* ( (— 8*N-48*EL+24) *N+ (88-128* EL) *EL-2)+EL* ( 

6 (128-1 92*EL) *EL+56}-36) +EL* (EL* ( (96-168*EL) *EL+186) -88) +4 ) +EL* ( 

7 EL* (EL* ( (40-80* EL) *EL+196) -42) -64) +18) +EL* (EL* (EL* (EL* ( (8-16*EL 

8 ) *EL+68) -10) -64 ) +2 ) +12 ) *G (NX, I) + (N* (N* (N* (8*N+32*EL-20) +EL* (4 

9 8* EL-56 ) -8 ) +EL* (EL*(32*EL-52)-18)+26)+EL* (EL* (EL* (8*EL-16)-10) + 

: 20) +6) *DSQPT (N**2+ (2*EL-2 ) *N) *G (NI-1, 1 ) + (N* (N* (N* (4*N+16*EL-12 

; )+EL* (24*EL-36)-l)+EL* (EL* (16*EL-36)-2)+15)+EL* (EL* (EL* (4*EL-12 

< )-l) +15) ) *DS2RT (N**4+ (4*EL-6) *N**3+ (4*EL**2-14»EL+11) *N**2+ (-4* 

- EL**2+10*EL-6) *N) *G (NI-2, 1) ) / ( (N* (N* (N* (16*N+64*EL-32) +EL* (96* 

> EL-96)-16)+EL*(EL*(64*EL-96)-32)+32)+EL*(EL*(EL*(16*EL-32)-16) + 

? 32) ) *R1**2) 

C Copy the double precision variable, DtM, to the single precision array 
GV(NT,LI,I) - Q4CR4 * DUVFUtC(I) 

80 CCNTINUE 

70 CONTINUE 

50 CONTINUE 

RETURN 

END 

C " " " " ^ - 

SUBROUTINE LEGENDRE 

‘CALL PARt-S 
♦CALL ARRAYS 

C Calulate Legendre polynanials, P0(LI,J) and P1(LI,J) 

DO 10 J“1,I£X3L 
Xl-CTH(J) 

P0(1,J)-X1 

P0<2, J)-(3.*XL*Xl-l.)/2. 

SQX2-30OT(1.-X1*X1) 

P1(1,J)~S0X2 
PI (2, J) —3. *X1*33X2 
10 CONTINUE 

DO 20 LI-3, IM\X 
RIrREAL (II -1 ) 

FAC1- (2 . *RL+1. ) / (RL+1 . ) 

FAC2-RL/ (RL+1.) 

FAC 3- (2.*RL+1. )/RL 
DO 30 J-1,IXX)L 
xi-cra(j) 

P0 (LI, J) -FACL*X1*P0 (LI-l, J) -T AC2*PO (LI-2 , J) 

PI (LI, J) -FAC3*X1*P1 (LI-1, J) -PI (LI-2, J) /FAC2 
30 CONTINUE 
20 continue 

RETURN 

EtD 

C SSSSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE F0FW 

♦CALL PALMS 
•CALL ARRAYS 

IMEGER NI, LIC 

DOUBLE PRECISION D3QRT, N, EL, R1 


R1 - RCCNSTD 
EL - LIC 

C Form AWT (Initial condition Matrix) . 

DO 20 NI - 1,»*XA(LICJ 
AWT(NI,1) - 0. 

AWX(NI,2) - 0. 

20 CONTINUE 

AWT (1,3) - 0. 

AWT (1,4) - 0. 

AWT(1,5) - 0. 

AWT (2, 3) - 0. 

AWT(2,4) - 0. 

AWT(3,3) - 0. 

AWT (1,6) - 

1 (EL* (EL* ( (-16*EL-32) *EL-8)+8i+3)*Rl/ (EL* (64*EL+64> ) 

AWT (2, 5) - 

1DSQRT(2*EL-1)* (EL*( (-8*EL-20)*EL-14}-3) *R1/ (EL* (64*EL+64) ) 
AWT (3, 4) - 

ID SORT ( (2*EL-I) /EL) * (EL* (EL* (8*EL+20) +14)+3) *Rl/ (EL 
1 * (64*EL+192)+128) 

AWT(4,3) - 

1 (2*EL+3) *DSOXT ( (48*EL**4+48*EL**3-12*EL-3) /EL) *R1/ (EL 
1 * (64*EL+192) +128) 

AWT (2, 6) - 

1(EL* (EL* (EL* ( (— 16*EL-80) *EL-128) -84) -31 ) -6) *R1/ (EL* (EL 
1 * (64*EL+192)+128) ) 

AWT(3,5) - 

1 (EL* (EL* ( (-16*EL-64) *EL-72) -16) +3) *Rl/ (EL* (64*EL** (3.0d+O 
1 /2.0drO)+192*DSQRT(EL) ) +128*DSCRT (EL) ) 

AWT (4,4) - 

1DSQRT( (6*EL+3)/EL) * (EL* (EL* (EL* (8*EL+44) +82)+57}+9)*Rl/ 

1 (EL* (EL* (64*EL+384 ) +704 ) +384 ) 

AWT(5,3) - 

1 (EL* (4*EL+16)+15) *DSQRT ( (12*EL**2+6*EL) / (EL+1) ) *R1/ (EL 
1 * (32*EL+160)+192) 


DO 10 NI - 3,JMVYA(LIC) 

N - NI - 1 
AWT (NT, 6} - 

1 (N* (N* (N* (N* ( (-8*N-48*EL+24) *N+ (92-128* EL) *EL-14) + (144-192*EL) *£L* 

1 *2— 12)+EL* (EL* ( (124-1 68*EL) *EL+102)-19)+19) +£L* (EL* (EL* ( (64-80* 

2 EL) *EL+144 ) -28) -7 ) -9) +EL* (EL* (EL* (EL* ( (16-16*EL) *EL+56)-32) -37) 

3 +7) +6) *R1/ (N* (N* (N* (64*N+256*£L-128) +EL* (384*EL-384) -64 ) +EL* (EL 

4 * (256*EL-384)-128)+128)+EL* (EL* (EL* (64*EL-128)-64>+128) ) 

AWT (NI+1, 5) - 

1 CN* (N* ( (-4*N-16*EL) *N+ (-36*ELn24) *EL+1) +EL* ( (-40*EL-48) *EL+2) ) +EL* 

1 (EL* ( (-16*EL-24) *EL+12)+22) +6) *DSQRT (N**2+2*EL*N+2*EL-1) 

2 *R1/(N* (N* (128*N+384*EL)+384*EL**2-128)+EL» (128*EL**2-128) ) 


AWT (NI+2, 4) - 

1 (N* (N* (N* (8*N+32*EL+16)+EL*(48*EL+44)-2) +EL* (EL* (32*EL+40)-8)-10) + 
1 EL*(EL*(EL*(8*EL+12)-6)-ll)-3) 

1 *DSGRT(N**4+ (4*EL+2) *N**3+(4*£L**2 

2 +10*EL-1) *N**2+ (12*EL**2+2*EL-2) *N+8*EL**2-4*£L) *R1/ (N* (N* (N* (1 

3 28*N+512*EL+256) +EL* (768*EL+768) -128) +EL* (EL* (512*EL+768)-256)- 

4 256) +EL* (EL* (EL* (128*EL+256)-128) -256) J 


AWT(NI+3,3) - 

1 (N* <4*N+8*EL+8) +EL* (4*EL+8)+3) 

1 *DSCRT (N*«6+ (6*EL+6)*N**5+ (12*EL**2+3 

1 6*EL+1C) *N»*4+ (8*EL**3+72*EL**2+64*EL) *N**3+ (48*EL**3+132*EL’*2 

2 +24*EL-11) *N**2+ (88*EL**3+72*EL**2-22*EL-6) *N+48*EL*»3-12*EL) *R 
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3 l/(N*(N*(128*N+384*EL+384)+EL*(384*EL+768}+256)+EL*(EL*(128*EL+ 1 (48O*EL**4+24OQ*EL**3+432O*EL**2+324O*EL+910)/(EL**2+EL) ) 


4 384) +256)) 

10 CONTINUE 

DO 25 NI - 1, N4AXA(LIC) 

25 «‘ME(NI,1#LIC} - AMVT(NI,6) 

DO 30 NI - 1, N4ftXA(LIC} - 1 
30 AMYEE(NI,2,LIC> - AMAT(NI+1,5) 

DO 40 NI - 1, N^iXA(LIC) - 2 
40 AM>iIE{NI,3,LIC) - »ftX(NI+2 r 4) 

DO SO NI - 1, M4Wl(LIC) - 3 
50 AMVEE(NI,4,UC) - Af-ftX(NI+3, 3) 


RETURN 

EN7 

SUBROUTINE FCFMB 

♦CALL PAFMS 
♦CALL ARRAYS 

INTEGER NI,LIC 

DOUBLE PRECISION DSCFT, N, EL, R1 

EL - LIC 
R1 - RCCNSTD 

fcrat(l,l) » 

1 (EL* (EL* (EL* (EL* (EL* (EL* (128*EL+832)+19S2) +1936) +536) -356) -258) - 
1 45)/ (EL* (EL* (512*E1+1536)+1024)*R1) 

brat (1,2) - 

1 (EL* (EL* (EL* ( (-32*EL-208) *EL-496)-536)-258)-45) *DSCRT(8*EL**3 
1 -12*EL**2+6*EL-i)/ (EL* (EL* (512*EL+1536)+1024)*R1) 

brat (1,3) - 

1DSCKT( (2*EL-1)/EL)* (EL* (EL* (EL* (EL* ( (-64*EL-576) *EL-2032)-3552)- 
1 3196) -1380) -225) / ( (EL* (EL* (256*EL+1536)+2816)+1536> *R1) 

bnat(l,4) - 

1 (EL* (EL* (EL* (16*EL+112) +288 ) +324 ) +135) *DS<ja:( (48*EL**4+48*EL**3- 
1 12*EL-3) /EL) / ( (EL* (EL* (2S6*EL+1536) +2816) +1536) *R1) 

brat (1,5) - 

1 (EL* (EL* (EL* (16*EL+160) +552)+792)+405) *DSOO:( (96*EL**4+96*EL**3- 
1 24*EL-6) / (EL**2+EL) ) / ( (EL* (EL* (S12*EL+4608)+13312)+12288) *R1) 

brat (1,6) - 

1 ( (-4*EL-24) * EL-35) *DSO?T ( (3840*EL**7+21120*EL**6+43200*EL**5+ 

1 37920*EL**4+8400*EL**3— 7560*EL**2-4860*EL-810) / (EL**2+EL) ) 

2 /( (EL* (EL* (512*EL+4608)+13312) +12288) *R1) 

bnat(2,l) - 

1 (EL* (EL* (EL* (EL* (EL* (EL* (EL* (128*EL+1472) +6624) +147 68) +16744) + 

1 8468) +1002) +9J+135)/ (EL* (EL* (EL* (512*EL+3072)+5632) +3072) *Rl) 

brat (2, 2) - 

1 (EL* (EL* (EL* (EL* (EL* ( (-64*EL-576)*EL-1936)-3056)-2476)-1372)- 

1 795) -225) /((EL* (EL* (256*EL** (3.Qd+G/2.0d+0) +1536*DSCKT(EL) ) + 

2 2816*DSQRI(EL) ) +1536*D3QRT (EL) ) *R1) 

brat (2, 3) - 

IDSQKT ( (6*EL+3) /EL) * (EL* (EL* (EL* (EL* (EL* ( (-64*EL-8%) *EL-50C8)- 

1 142C8) -21420) -15960) -4059) +540) /((EL* (EL* (EL* (256*EL+2560) 

2 +8960) +12800) +6144 )*R1) 

brat (2, 4) - 

1(EL* (EL* (EL* (EL* (EL* (128*EL+1440) +6288) + 13424 1+14 208) +6282) 

1 +405) *DSQRT ( (12*EL+6) / (EL**2+EL) ) / ( (EL* (EL* (512*EL+46C8) 

2 +13312) +12288) *R1) 

brat (2, 5) - 

1 (EL* (EL* (EL* (EL* (16*EL+224 ) +1120) +2372) +1735J-175) *DSCKT( 


2 /((EL* (EL* (EL* (512*EL+7168)+36352) +78848) +61440) *R1) 

brat (2, 6) - 

1 (EL* ( (-24*EL-252) *EL-858)-945) *DS2KT( (160*EL**5+800*EL**4+ 

1 1440*EL**3+1080*EL**2+270*EL)/(EL**2+3*EL+2) ) / ( (EL* (EL 

2 *(256*EL+3072) +12032) +15360) *R1) 

brat (3,1) - 

1 (EL* (EL* (EL* (EL* (EL* (EL* (EL* (128*EL+2240)+16352)+64752)+151464) 

1 +213988) +178730) +80661) +14715) /( (EL* (EL* (EL* (512*EL+5120> 

2 +17920) +25600) +12288) *R1) 

brat (3,2) - 

1DSCKT (6*EL+3) * (EL* (EL* (EL* (EL* (EL* ( (-64*EL-832)*EL-4368)-12272) 

1 -20972) -23468) -16499) -5385) / ( (EL* (EL* (EL* (512*EL+5120) +17920) 

2 +25600) +12288) *K1) 

brat <3, 3) - 

lDSOCT( (12*EL+6) / (EL+1) ) * (EL* (EL* (EL* (EL* (EL* ( (-64 * EL-1280 )* EL 

1 -10544)-46192)-115804)-165336)-123605)-36975)/((EL*(EL*(EL* 

2 (256*EL+3584) +18176) +39424) +30720} *Rl) 

brat{3,4) - 

1 (EL* (EL* (EL* (EL* (16*EL+232 ) +1300 ) +3538) +4714 ) +2485) *DSCKT ( (480 

1 *EL**4+2400*EL**3+4320*EL**2+3240*EL+810) / (EL+1 ) ) / ( (EL* (EL* 

2 (EL* (256*EL+3584) +18176) +39424) +30720) *R1) 

brat (3,5) - 

1 (EL* (EL* (EL* (EL* (EL* (96*EL+2064}+17568)+75384) +169950) +186081) + 

1 72765) *DSQRT ( (40*EL**2+8C*EL+30) / (EL**2+3*EL+2) ) / ( (EL* (EL 

2 * (EL* (512*EL+9216) +60928) +175104) +184320) *R1 ) 

brat (3, 6) - 

1 (EL* ( (-24*EL-324 ) *EL-14 34 ) -2079) *USCRT ( (2240*EL**6+23520*EL**5+ 

1 98560* EL**4+208880*EL**3+233100*EL**2+127750*EL+26250) / (EL+2) ) 

2 / ( (EL* (EL* (EL* (512*EL+92I6) +60928) +175104) +184320) *R1) 


DO 10 NI - 4,I*RXA(LIC) 

N - NI - 1 
bnat(NI,l) - 

1(N*(N*(N*(N*(N*(N*(N*(N*(N* (96*N+960*EL-480) +EL* (4384*EL-3632) +672 

1 ) +EL* (EL* (12032*EL-12032) +2624 ) +192) +EL* (EL* (EL* (22048*EL-224 32 

2 ) +32) +136) -4026) +EL* (EL* (EL* (EL* (28352*EL-25120) -18528) -3760)-! 

3 0900) +9390 ) +EL* (EL* (EL* (EL* (EL* (26080*EL-16432 ) -48640) -1 6104) +1 

4 926) +38413 } -2097 ) +EL* (EL* (EL* (EL* (EL* (EL* (17024*EL-5120) -62944) 

5 -29696) +42232) +68288)-16618)-10272)+EL* (EL* (EL* (EL* (EL* (EL* (EL* 

6 (7552*EL+256)— 4 64 64 )-28432) +65 608) +69752}— 32292) -21489) +5085) +£ 

7 L* (EL* (EL* (EL* (EL* (EL* (EL* (EL* (2048*EL+640) -18816) -13920) +42976 

8 ) +41656) -27816) -21458)+7626) +1440} +EL* (EL* (EX* (EL* (EL* (EL* (EL* ( 

9 EL* (EL* (256*EL+128) -3264 ) -2784 ) +10800)+12024) -7684 )-11258) -864 ) 

: +2106)+540)/ ( (N* (N* (N* (N* (N* (1024*N+6144*EL-3072)+EL* (15360*EIr 

; 153 60) -5120) +EL* (EL* (2C480*EL-30720) -20480) +15360) +EL* (EL* (EL* ( 

< 15360*EL-30720)-30720)+46C80)+4096}+EL* (EL* (EL* (EL* (6144*EL-153 

- 60)-20480)+46080)+8192)-12288) +EL* (EL* (EL* (EL* (EL* (1024*EL-3072 

> ) —5120) +15360) +4096) -12288) )*R1) 

bratCNI, 2) - 

1 (N* (N* (N* (N* (N* (N* ( (-16*N-128*EL) *N+ M8C*EL-128) *EL-40)+EL* ( (-108 

1 8*ELr-768)*EL-240))+EL*(EL*((-1680*EL-2176)*EL-472)+736)+431)+EL 

2 * (EL* (EL* ( (-1856*EL-3584) *EL-288)+2944)+1724) )+EL* (EL* (EL* (EL* ( 

3 (-1408*£L-3456) *EL+560) +5696) +2800)— 1016} —105) +EL* (EL* (EL* (EL* ( 

4 EL* ( (-640*EL-1792 )*EL+1056> +5504 ) +2152) -2032) -210) )+EL* (EL* (EL* 

5 (EL* (EL* (EL* ( (-128*EL-384) *EL+480) +2016)+360)-2088)-838) +402} +1 

6 80) *DSCRX(N**2+2*EL*N+2*EL— 1)/ ( (N* (N* (N* (N* (1024*N+5120*EL) + 

7 10240*EL**2-5120)+EL*(10240*EL**2-15360))+EL**2*(5120*£L’*2- 

8 15360)+4C%)+EL*(EL**2*(1024*EL**2-5120)-f409b))*Rl) 

brat (NI, 3) - 

1 (N* (N* (N* (N* (N* (N* ( (-32*N-256*EL-128) *N+ (-928* EL-1040)* EL-64 }+EL* ( 

1 (-1984»£L-3648) *EL-816) +256) +EL* (EL* ( (-272C*EI^-7136) *EL-3024) +1 

2 976) +1022) +EL* (EL* (EL* ( (-2432*EL-8384) »EL-5248) + 5696) +6200) +146 

3 8) +EL* (EL* (EL* (EL* ( (-1376*EL-5904) »£L-4800) +7880) +12626) +4047) - 

4 971) +EL* (EL* (EL* (EL* (EL* ( (-448*£L-2304) *EL-2256) +5296) +1C844) +3 

5 656) -34 27) -1641) +EL* (EL* (EL* (EL* (EL* (EL* ( (-64 * EL-384 ) * EL-4 32) +1 

6 392) +3396) +1104}-2477)-2C85)-450) 

6 *DSQRT (N**4+ (4*EL+2) *N**3+ (4*EL 
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7 **2+10*EL-l) *N**2+ (12*EL**2+2*EL-2) *N+8*EL**2-4*EL) / ( (N* (N* (N* ( 

8 N* (N* (512*N+3072*EL+1536) +EL* (7680*EL+7680) -2560) +EL* (EL* (10240 

17 

8 TEM?(NI,6) 

- BhRT(NI,l) 

9 *ELfl5360) -10240) -7680) +EL* (EL* (EL* (7680*EL+15360) -15360) -23040 


DO 12 NT - 2, 

MSAXAOJC) 

: )+2048)+EL*(EL* (EL* (EL* (3072*EL+7680)-10240)-23040)+4096)+6144) 

] +el» (EL* (EL* (EL* (EL* (S12*EL+1536)-2560)-7680)+2048)+6144)) *Rl) 

12 

BURS’ (NI, 5) 

- BMVT(NI-1,2) 

» 


DO 13 NI - 3, 

EMAXA (LIC) 

CCNTINUE 

13 

BTEWP (NT , 4 ) 

- EMAT (NI-2, 3) 

DO 20 NI - 4,N4AXA(LIC) 


DO 14 NI - 4, 

M'RXA (LIC) 


14 

ETTEMP (NI,3) 

- BhftT(NI-3,4) 

N - NI— 1 


DO 15 NI - 5, 

MRXAOJC) 

bnat(NI,4) - 

15 

BTEMP (NI,2) 

- EM\T(NI-4,5) 

1 (N* (N* (N* (N* (N* (48*N+288*EL+288)+EL* (800*EL+1664)+744)+EL* (EL* (128 
1 0*EL+4096) +3872) +1056) +EL* (EL* (EL* (120O*EL+5184 ) +7304) +3440) +51 


DO 16 NI - 6, 

MWXACLIC) 

2 )+EL* (EL* (EL* (EL* (608*EL+3296) +5968) +3376)— 1146) -1242) +EL* (EL* ( 

16 

BTEM>(NI,1) 

- EWAX (NI-5, 6) 


3 EL* (EL* (EL* (128*EL+832) +1792) +992)— 1368) -1836) -540) 

3 *DSCFT(N** 6 + ( 

4 6 *EL+ 6 ) *N**5+ (12*EL**2+36*EL+10) *N**4+ (8*EL**3+72*EL**2+64*EL) * 

5 N**3+ (48*EL**3+132*EL**2+24*EL-11) *N**2+ (88*EL**3+72*EL**2-22*E 

6 L- 6 ) *N+48*EL**3-12*EL) / ( (N* (N* (N* (N* (2048*N+10240*EL+ 10240) +EL* 

7 (20480*EX+40960)+10240)+EL* (EL* (20480*EL+61440)+30720)-10240)+£ 

8 L* (EL* (EL* (10240*ELf 40960) +30720) -20480) -12288) +EL* (EL* (EL* (EL* 

9 (2G48*EL+1024Q)+10240) —10240) -12288) ) *R1) 


10 

20 


EX) 20 K - 1,6 
DO 10 NI - 1,MRXA(LIC) 

AMRT(NI,K) - ~(2.*AMAT(NI,K) - BTIEJP (NI,K) *VISC*TINC) 
EMATS (NI,K,UC) - —2 . *BWVT (NI , K) *VTSC*TOC 
CONTINUE 
CONTINUE 


fcmat(NI,5) - 

1 (N* <N* (N* (N» (N* (32*N+192*EL+288) +EL* (48C*EL+1456)+832) +EL* (EL* (640 

1 *EL+2944) +3424) +672) +EL* (EL* (EL* (480*EL+2976) +5280) +2216) -702) + 

2 EL* (EL* (EL* (EL* (192*EL+1504)+3616)+2416)-1236)-1242)+EL* (EL* (EL 

3 * (EL* (EL* (32*EL+304 ) +928) +872 ) -534 ) -1197 ) -405) 

3 +DSQRT (N** 8 + ( 8 *EL+ . . . 

4 12)*N**7+(24*EL**2+92*EL+54)*N**6+(32*EL**3+264*EL**2+396*EL+10 

5 8)*N**5+ (16*EL**4+336*EL**3+1076*£L**2+776*EL+69)*N**4+(160*EL* 

6 *4+1280*EL**3+2000*EL**2+612*EL-72) *N**3+ (560*EL**4+2160*EL**3+ 

7 1636*EL**2-52*EL-124)*N**2+(800*EL**4+1568*EL**3+376*EL**2-296* 

8 EL-48) *N+384*EL**4+384*EL**3-96*EL**2-96*EL) / ( (N* (N* (N* (N* (N* (2 

9 048*N+12288*EL+18432)+EL* (307 20*EL+921 60) +51200 )+EL* (EL* (40960* 

: EL+184320) +204800) +30720) +EL* (EL* (EL* (30720*EL+184320) +307200) + 

; 92160) -53248) +EL* (EL* (EL* (EL* (12288*EL+92160) +204800) +92160) -10 

< 6496)-49152)+EL*(EL*(EL*(EL* (EL* (2048*EL+18432) +51200) +30720)-5 

» 3248)— 49152) )*R1) 

ixiat(NI,6} - 

1 (N* (N* ( (-16*N-64*EL-128) *N+ (-96*EL-384)*EL~344)+EL* ( (-64*EL-384)*E 
1 L-688)-352)+EL* (EL* ( (-16*EL-128)*EL-344)-352)-105) 

1 *DSGKT(N**10+( 

2 10*EL+20) *N**9+ (40*EL**2+190*EL+165) *N** 8 + (80*EL**3+720*EL**2+1 

3 480*EL+720)*N**7+<80*EL**4+1360*EL**3+526Q*EL**2+6080*EL+1743) * 

4 N**6+(32*EL**5+1280*EL**4+9240*EL**3+20080*EL**2+13978*EL+2100) 

5 *N**5f (480*EL**5+8000*EL**4+32200*EL**3+42760*EL**2+17030*EL+33 

6 5) *N**4+ (2720*EL**5+24800*EL**4+61320*EL**3+49480*EL**2+7500*EL 

7 -2120) *N**3+ (7200*EL**5+39920*EL**4+62440*EL**3+26340*EL**2-458 

8 0*EL-2244) *N**2+(8768*EL**5+31520*EL**4+30160*EL**3+1720*EL**2- 

9 5688*EL-720) *N+3840*EL**5+9600*EL**4+4800*EL**3-2400*EL**2-1440 

: *EL) / ( (N* (N* (N* (N* (2048*N+10240*EL+20480) +EL* (20480*EL+81920) +7 

; 1680 )+EL* (EL* (20480*EL+122880)+215040)+102400)+EL* (EL* (EL* (1024 

< 0*EL+81920) +215040) +204800) +49152) +EL* (EL* (EL* (EL* <2048*EL+2048 

- 0) +71680) +102400) +49152) )*Rl) 

20 CONTINUE 


C deacrqpose matrix M®T 
C 

N - M*fiXA(LIC) 

NC - 5 
IA - MO 
IU - MO 

CALL UJDAPB (AM\T,N,?C,IA,AINV,IU,Dl,D2,IER) 

IF (IER.NE.0) THEN 

WRITE (IWRITE, 280) IER,LIC 
EM) IF 

280 FOFMAXC WARNING: the error parameter is ',13, * for LIC -*,I3) 

DO 31 K - 1,6 
DO 41 NI - 1,M4AXA (LIC) 

AMVTS(NI,K,LIC) - AINV(NI,K) 

41 CCNTINUE 
31 CCNTINUE 

RETURN 

END 

C S^SSSSSSSBSKSRSSSS SSSSSSSS^ ^ 


SUBROUTINE TUSENT 

•CALL PAFKS 
•CALL ARRAYS 

C Write header lines to files: 
C 


RETURN 

EM) 

c ^^^^^<tq^ SSSSSS?tSSSSSSSSSSSSSSSSSSSS S S S SSSSSSSSSSSSSSSSSSSS5 

SUBROUTINE PREINT 

•CALL PAFMS 
•CALL ARRAYS 

C acciy time differencing: Crank-Nicholscn far visccus tern 
C — — 

DO 5 NI - 1,5 
DO 6 K - 1,6-NI 
6 BTE>P(NI,K) - 0.0 
5 CONTINUE 


C WRITE (LGLOBAL, 2010) 

C 2010 FCFMAT(X, 'head: FrameSaved time centroid ringv 

C 1 inpulsetf’ ImpulseGO dldt') 

C Begin integration . . . 

C 

NSC0UNT - 1 

DO 10 HOOP - 1, nr LOOP 

C form forcing function (convection term) for all values of L. 
c 

CALL FORCING 

c Output solution to cray at every xx time steps 

c 

IF (HOOP.EQ.l) THEN 
ntCRAY " (nr LOOP -1)/NCRAY +1 


CO 17 NI - 1, NMAXA(LIC) 


on on 
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WRITE (LCRAY) 
WRITE (ICRAY) 
WRITE (ICRAY) 
WRITE (ICRAY) 
WRITE (ICRAY) 
WRITE (LCRAY) 
WRITE (LCRAY) 
WRITE (ICRAY) 
WRITE (ICRAY) 
END IF 


ntCRAY 

RCCNSTD, RAC^po, TIMEo 
VISC, GAM, CCR 
iRLN, iPIOT 
M-AX, NOOL, IMAX, ICOL 
(hNAXA(LI), XI-1,IMAX) 
(R(I), I-l,NOOL) 
CXIDD(I),WrR(I), I-l,NCOL) 
(CTH(J),WrnUJ), J-1,ICQL) 


N - HWMUC) 
ne - 5 
IA - NMD 

DO 31 K - 1,6 
DO 41 NI - 1,M>¥\XA (LIC) 

41 AINV(NI,K) - ARRIS (NI,K, LIC) 

31 CCNITNUE 

CALL LLKIPB (AINV, FHS,N, NC, IA,DEL30IN) 


IDtML - ( (iIOCP-1) /NCRAY) *100000 
IDUM2 - ((ilOCP— 1) *100000) /NCRAY 
IF (IDLMQ.— HXPG.EQ.0) THEN 
CALL 0UTFUI2 
jCRAY - NSOCUNT 
NSOOUNT - NSCOUNT+1 
nsr. 

jCRAY - 0 
END IF 


C the unknown, time dependent coefficients* are: 


DO 70 NIP - 1,NRRXA(LIC) 

ALP (NIP, LIC) - DELSOLN (NIP) + ALP (NIP, LIC) 
70 CCNITNUE 

20 CCNITNUE 


c Plot solution every xx time steps 


IDUM1 - ( (iIOCP-1) /NPICT) *100000 

hxm 2 - ((iiccp-i) nooooo) /npiot 

IF (IDUML-IDUM2.EQ.0) THEN 
CALL STREAMT 

CALL PITOCNT (RCD, ICD, CMEG, CTH, R, XY , SFUNC, F) 
1PICT - iPIOT + 1 
IF (jPIOT.BQ.0) THEN 

nrPICT - (nrICCP-1) /NPIOT+1 
WRITE (LPIDT) iRtN, GAM, TIME, CtR 
WRITE (LPLOT) TINC, RMAX, IMAX 
WRITE (IPIOT) nrPIOT 
ETC IF 
ENERGY - 0. 

DISSIP - 0. 

WRITE (IPIOT) TIME, CIRC, RADpp, RVEIpp 
WRITE (IPIOT) ENERGY, DISSIP, RIMBMP, RU'PGQ, DIMP 
jPLOT - 1 
ESD IF 

IF (HOOP. EQ.nrlCCP) GOTO 5 


C save the convective term fron the previous time step, 

c — — 

DO 90 LIC - 1,URX 
DO 100 NIP - 1,MRXA(LIC) 

100 CCNVM1 (NIP,LIC) - CCNV(NIP,LIC) 

90 CCNITNUE 

c Advance "time" 

c 

TINE - EXP (AIOG(TIME) + TINC) 

10 CONTINUE 

C end integration, 

c 

5 CONTINUE 

RETUFN 

END 


! Quit integration after nr ICC? steps 


Compute centroid: 


SUBROUTINE fRIMJLX 


ZCoR - ZCoR + RVELP* (EXP (TINC + AIOG(THE)) -TIME)/ 

1 (SCKT (TIMEo) *RADpCO) 

Advance the unknown coefficients in time for each L 


DO 20 LIC - 1,12-RX 

C Multiply B matrix times the solution vector 


CALL RAIMJIT 


C Adams Bashfarth differencing applied to the convective term. 


IF (iLCOP.EQ.l) THEN 
DO 30 NIP - 1, W4AXA (LIC) 

30 RHS (NIP) - -2.*CCNV(NIP,LIC)*TXNC + BVEC(NIP) 

ELSE 

DO 40 NIP - 1, RM\XA (LIC) 

RHS (NIP) - ~(3.*CCNV(NIP,LIC)-CCNVMlCNaP,LIC))*TTNC 
1 t BVEC (NIP) 

40 OCNTTNUE 

ERD IF 


♦CALL PAFMS 
♦CALL ARRAYS 


C Initialize the solution vector to 2 ero 
C — 

DO IS NI - 1,RM\XA(LIC) 

15 BVEC (NT) - 0. 


C multiply al 1 elements above/an the diagonal 
C — 

DO 10 K - 1,6 

DO 20 NI - l,M-ftXA(LIC) - 5 

20 9/EC (NI) - BVEC (NI) + BRATS (NT , K, LIC) * AIP(NI-1+K,LIC) 

10 OCNTINUE 


C multiply all elsnents below the diagonal 
C 

CO 30 K - 1,5 

DO 40 NI - 2,RWAXA(LIC) - 4 

40 BVEC (NI+K-1) -BVEC (NI+K-1) -‘-3-RTS (NT-1, Xtl, LIC) "ALP (NI-1, L 

30 CCNITNUE 


C multiply the lower right hand corr.er elements (5x5 matrix) 
C 


c 


invert the implicit term with farcing function (RHS (NIP)) as rhs 
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DO 50 NI - t'MttACLIC), M^iXAOJC) - 4, -1 
IF (NI.KT.l) GOTO 100 

C abcve/on the diagonal 

c — 

DO 60 K - 1, Nf'ftXA (LIO-NI+l 

60 BVEC(MI) - BVEC(NI) + EM«C5(NI,K,LIC) * ALP (NI-l+K, LIC) 

C below diagonal 

C 

DO 70 K - l,fM«A(LIC)-NI 

70 BVEC(NI+K) - BVBC (NI+K) + EMATS(NI,K+1,LIC) *ALP(NI,LIC) 

50 OCNITNUE 
100 CONTINUE 


RETURN 

END 

SUBROUTINE hMMJLT2 <IJ,(MJ,I*D,fK8,AIP,NMAXA,FWVr,SOINV) 
♦CALL PAFMS 

DIMENSION FMAX(N4D,NSB+1,IM)), ALP (N-D, LVD) , Nt-AXAdAD) 
DIMENSION SOINV(NMD) 

C initialize the solution vector to zero 
C 

DO 15 NI « 1, N-PXA (LI) 

15 SOLNV (NI) - 0. 


C multip ly all elements above /cn the diagonal 
C — 

DO 10 K - 1,NSB+1 

DO 20 NI - 1,M-RXA(LI) - NSB 

20 S0INV (NI> - 93INV (NI) + FMVT(Nr,K,LI) * ALP (NI-i+K,LI) 

10 CONTINUE 

C multiply al l elements balcw the diagonal 

C — — 

DO 30 K - 1,NSB 

DO 40 NT - 2,N-AXA(LI) - (NSB-1) 

40 SOLNV (NI+K— 1)**S0INV (NI+K— 1)+FMAX(NI-1, K+1,LI) *AIP (NI— 1, LI) 

30 CONTINUE 


C multiply the lower right hand comer elements (NSBxNSB matrix) 

C ■ 

DO 50 NI - LMAXA(LE), N»SWA(LI) - (NSB-1), -1 
IF (NI.LT.l) GOTO 100 

C above /on the diacpnal 

C — 

DO 60 K - 1,NMAXA(LI)-NI+1 

60 SOINV (NT) - SOINV(NI) + R-ftT (NI , K, LI ) * ALP (NI-l+K, LI) 

C below diagonal 

C 

DO 70 K - 1 , hf'AXA (LI ) -NI 

70 SOLNV (NI+K) - SOLNV (NI+K) + FMAX (NI,K+1,LI) *ALP(NI,LI) 

50 CCNTINUE 
ICO CONTINUE 


RETURN 

END 

C nnnnt-c 


♦CALL PARMS 
♦CALL ARRAYS 

C Go FROM wave space TO real space 
c 

DO 10 I-l,NCOL 
DO 20 J-1,I£0L 
VELRA(J) - 0. 

VELTA (J) - 0. 

VCRTA(J) - 0. 

20 CCNTINUE 

DO 30 LI-1, IMAX 
VELR - 0. 

VEIT - 0. 

WKT - 0. 

DO 40 NX-1,M4AXA(LI) 

VELR - VELR + GR(NI,LI, I) *ALP (NI,LI) 
VEIT - VELT + GTH(NI,LI,I)*ALP (NI,LI) 
VCKT - VCKT + GV (NI,LI, I) *AIP (NI,LI) 
40 CCNTINUE 

DO 50 J - l,ICOL 

VEIRA(J) - VELRA(J) + VELR»P0 (LI, J) 
VELEA(J) - VELTA(J) + VELT*Pl (LI, J) 
VOPTA(J) - WRTA(J) + VtKT'Pl (LI, J) 

50 CCNTINUE 

30 CCNTINUE 

DO 60 J - 1,I£QL 
UR(I, J) - VELRA(J) 

Uffl(I,J) - VELIA(J) 

CNEG (I, J) - VDRTA(J) 

60 CCNTINUE 

10 CCNTINUE 

c Compute Saf£man‘s velocity 
CO 120 J=*l, LCCL 

SIH(J) - SO?T(l.-CTH(J)**2> 

120 CONTINUE 


IF (IIOOP.EQ.l) BEN 

c For the first time step cnly, comp ute the RMS error of vorticity 


c the initial condition is a Stokes solution 

c 

IF (ICFTAG.EQ.l) TEEN 
Rf^3 - 0. 
mom - 0. 

CO 132 I - l,NCOL 
FMSD1 - 0. 
morml - 0. 

VEth - l. 

DO 142 J - l,ICOL 

EXOEG - STH(J) *R(I) *EXP (-R(I ) *'*2/4. ) / (TIME*16. *PI** (3./2. ) ) 
FM331 - RMSDl + (EXCMEG-CMEG (I, J) )**2*WTTH (J) / (WFth*STH ( J) ) 
morml - morml + EXCNEG**2*WTTH (J) / (WFth*STH (J) ) 

142 CCNTINUE 

R-SD - FMSD + R€D1*F2JAC(I)/R(I) 
morm - morm + marml*F2JAC(I)/R(I) 

132 CCNTINUE 

FMSD - S2RT(FMSD) 

WRITE (IWRITE,110Q)f'NAXA(l) ,F?MSD 
WRITE (IAJRITE ,1101) morm 
ENG IF 

C the initial condition is a thin ring 


IF (ICFLAG.EQ.2) HEN 

FIXED - 1.2 5 64 392281 

CAPR - RADppo 

RM3D - 0. 

morm - 0. 

co 131 I - i,n:cl 

FM3G1 - 0. 


SUBROUTINE FORCING 
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21 CENTIME 

IF (TIME.BQ.O.) THEN 
TOE- l./(REMP *PI) 

TTMEo - TIME 
END IF 

C BE CAREFUL HERE, THIS STATEMENT WAS CHANGED CUICKLY WITHOVT 
C MXH TBXEHT FRCM IICOP.EQ.l TO INCIDDE IF TIME.EQ.O. 

C IF (iICCP.EQ. I- AND. TIME.EQ.O.) TIMEo - TIME 


motml - 0. 

WFth - 1. 

DO 141 J - 1, ICOL 

AfG - EXP ( - (FTXED/CtR** 2) * ( 1.+ (R(I) *R(I) / (CAPR*CAPR) ) 

1 - 2.*R(I) *SIH (J)/CAPR ) ) 

ARG2 - EXP ( - {FTXED/CtR** 2) * { 1.+ (R(I) *R(I)/ (CAPR*CAPR) ) 
1 + 2.*R(I)*STH(J)/CAPR ) ) 

EXOMEG - FIXED *GPM * (ARG-ARG2) / (PI* VISC *CAFR**2 *CtR**2) 
R«D1 - PMSDl + (EXCMEG-OEG (I, J) ) **2*WITH (J) / (WFth*STH (J) ) 
morml - rnoml + EXa-EG**2*WITH ( J) / (WFth*sm (J) ) 

141 CONTINUE 

FMSD - FMSD + FMSDl *F2 JAC (I) /R (I ) 
rnorm - mom + mozrrtl*F2u?C (I)/R(I) 

131 CCNITNUE 

FMSD - 9QRT(FWSD) 

WRITE (IWRITE, 1100) MRXA(l), RMSD 
WRITE (IWRITE, 1101 ) rrorm 
END IF 

1100 FORMAT (X, 'N^XA(l) - \I2,5x, 'IMSerror -\fl8.9) 

1101 format {x, 'mom - *,fl9.8) 

EM) IF 

C Compute speed of Saffcan centroid and other stuff 


RTM> - 0. 

CPI - 0. 

CP2 - 0. 

TPl - 0. 

TP2 - 0. 

CIRC - 0. 

RADpp - 0. 

FMM - 0. 

DCENT - 0. 

DO 130 I “ l,NCOL 

C an inner loco begins here for the double integration 
RIMP1 - 0. 

CENT1 - 0. 

CENI2- 0. 

TOPI - 0. 

TIMP2 - 0. 

CLRCl - 0. 

RADppl - 0. 

HCML - 0. 

DCENT1 - 0. 

WFth - 1. 

CO 140 J - l,DCOL 
UR1 - UR(I,J) 

UIKL - UTH (I, J) 

RXMP1 - RM>1 + CM£(I, J)*SIH(J)*WTIH(J)/KFth 

CENTL - CENT1 + URl*OME£(I,J)*SIH(J)*CIH(J)*Wm(J)VV^ 

CENI2 - CENT2 + UTHL*CMEG(I, J) * (3.*CIH(J) *CIH (J) -1.) 

1 *WITH(J)/WFth 

TOlPl - TIMPl +■ URl*aEG(I,J)*SrH(J)*WITH(J) /WFth 
TIMP2 - TTM?2 + tHHl*CMEG (I, J) *CTH ( J) *WTTH (J) /WFth 
CIRCL - CIRC1 + a^(I,J)n«TH(J)/(WFth*SrH(J)) 

RADcpl - RADpol + a»EG(I,J}*WrTH(J) /WFth 
R-EMl - EMML + (UR1*CTH (J)-UTH1*STH (J) ) *WTTH(J) /VfFth 
DCENTL - DCENTl + CMEG (I, J) *SIH (J) *CTH ( J) *WTTH ( J) /WFth 
140 CCNITNUE 

C weight function of quadrature method 

WFrad - SORT ( (l.~ XI (I)) /XI (I)) 

C Note that F2JPC(I) - RJAC(I)*WTR(I) /VFrad 
RIMP - RIMP + RIM>1*R(I)*F2GIAC{I) 

CPI - CPI + CENTl*R(I)*F2JAC(I) 

CP2 - CP2 + CENT2«R(I)*F2JAC(I) 

TPl - TPl + TIMPl*RJAC(I)*wra(I)/WFrad 

TP2 - TP2 + TOP2*RGAC(I)*WTC(I)/WFrad 

CIRC - CIRC + CIRC1*F2SAC(I)/R<I) 

C12/10/87 RADpp - RADpp + RACcpi*R(I) *F2J?C{I) 

RADpp - RAEcp + RADppl*F2CAC(I) 

FMM~ - FMM + FM3-H *F2 JPC (I) 

DCENT - DCENT * DCENT1*R(I)**2*F2:AC(I) 

130 CCNTINUE 

C ccrpute impulse by muitipoie expansicn 
SUM * 0. 

DO 21 NI - 1,N“AX 

StM - SUM + ALP (NI, 1} *CH-5? (NT) 


RDM - SUM* TIME 

RE-PGQ - Rn-P*PI*TTME 

PVEIPP - time*pi* (3.*CPl + CP2) 

DOT - 2.* PI* (TPl + TP2) 

IF (ICFLAG.EQ.2) THEN 

SAFVEL - gam* (A10G(4.*2.24182/CtR) - 0.558)/(4.*pi*RADppo) 

ELSE 

SAFVEL - 0.0 
EM) IF 

C COMPUTE THE CFL MMEER AT THE ORIGIN 
IF (IIOCP.EQ.l) THEN 

CFL - TOC*(UlH(l,ICOL/2)+KVEIPP)/(R(2)-R(l)) 

C 1300 FORFAXC THE CFL NtMBER IS*,F16.8) 

WRITE <6, *) 'I, CFLrad, CFLtheta' 

DO 1310 I«1,NCGL-1 

CFLrad - TOC* (UTH(I,ICOL/2)+RVEIPP) / (R(I+1)-R(I) ) 

CFLth - UNO* (UIH (I,LU0I/2)+FVELPP)/ (R(I) *pi/lcol) 

WRITE (6,*) I, CFLrad, CFLth 
1310 CENTIME 
EM) IF 

C 4/16 SET THE RUG VELOCITY TO ZERO WHEN SOLVING THE STORES EONS 
C(4/27) RVELPP - 0. 

RVEIP - RVELFP/SCKT (TIME} 

RM24 - 3.*pi*time*rmcm 
DCENT - DCENT*PI*TIME 
IF (RADro/CIRC.LT.O) THEN 
WRITE (6, 1999) PADpp/CIRC 
1999 FCFMtT(X, 'RADpp/CIRC - \F16.8) 

ELSE 

RADpp - RADpp/CIRC 
END IF 

WRITE (IWRITE, 1010) TINE 
WRITE (IWRITE, 1015) CIRC 
WRITE (6,1003) DCENT 

1003 FOFMATX, 'the centroid canputed by GQ is ',F16.8) 

WRITE (6, 1002) PMM 

1002 PEf*ftT(X, 'H(t)/ (2/3)I/rho is ',F16.8) 

WRITE (6, 1001) RADpp 
1001 FCR-RT(X, 'RADpp IS ',F16.8) 

C write impulse and related quantities 
WRITE (LWRITE, 1020) RIMM 5 
WRITE (IWRITE, 1030} RIMPGQ 
WRITE (IWRITE, 1040) RIMMP-RIMPGQ 
WRITE (LWRITE, 1050) DIMP 

C write propagation speed and related quantities 
WRITE*(LWRnE, 1C60) RVELPP 
WRITE (IWRITE, 1070) SAFVEL 

c WRITE (IWRITE, 1040} SAFVEL - (FWELPP'4. *PI*RAEppc/GAM) 

WRITE (LWRITE, 1040) SAFVEL - RVELPP 

1010 FOFFKT (X, 1 time (sec) -',F16.8) 

1015 PDFMATOt, 'corputed circulation -',F16.8,/) 

1020 F0EM\T(X, 'inpuise (L^/T) (railtipaLe expansion) -',F16.8) 

1030 FOFMATX, ‘impulse (LM/T) (Gauss Quacxature)-',F16.8) 

1040 FCRAT(X, 'di’ff - ',F16.8,/) 

1050 FOEMff(X, 'd (inpulse )/dt (Gauss Quadrature -*,E16.8,/) 

1060 FOFt«T(X, 'propagation speed (non-dim) -',F16.8) 

1070 FOMAT(X, 'Saffman propagation velocity (non-dim) -',F16.8) 

C ccrpute FMS difference and maximum error for the Stokes solution at 
c each time step. 

c Every xx steos, ccrpute the energy ana dissipation and write gicbai - 
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IDUM - ((iL00P-l)/N3IDBAL) *100000 
HXM2 - ( (ILOOP-1) *100000) /NGLCEAL 
IF (IDUM1-IDUM2 .EQ. 0} THEN 
IF (jGLOBAL.EQ.O) THEN 
nrGIOBAL - (nrIOCP-1 ) /MJIDBAL+1 
WRITE (LSIOBAL) IRON, GAM, TIME, CtR 
WRITE (LGIOBAL) TTNC,W<ftX, UWX. 
WRITE (LGIOBAL) nrglcbai 
END IF 

C ccrrpute energy and dissipation 


DO 160 I-1,NOOL 

C WHEN COMPUTING THE STORES SDILTTICN SET RVELPP,UIH,UR - 0. 

C (ALSO SEE ABOVE) 

C UTH(I,J) - 0. 

C UR(I,J) - 0. 

SUMlA(I) - SUM1A(I) + (UIH (I, J)+FWTH) * (MG(I,J) *P0FUN(LI,J) 
SUM2A(I) - SUM2A(I) + ( UR(I, J)- RVR 

1 — RD2 (I) 

2 )*CMEG(I,J)*PlFUN(U,J) 

C end of i loop 

160 CONTINUE 

C end of J loop 

165 CONTINUE 

C end of transformation wrt theta... 


C Dissipation Icy matrix multiplication 

DISSIP - 0. 

DO 200 LI - 1,IMAX 
RL - REAL (LI) 

CTEMP - - (4.*PI*RL* (RLKl.))/(2.*KL+l.) 

CALL NMMJLT2 (LI,NMD,LM), 5, ALP,N"V\XA, EMAIS,DISV) 

DO 210 NI - 1,N-RXA(LI) 

DISSIP - DISSIP + CIEPP*DISV(NI)*ALP(NI,LI) 

210 CONTINUE 

200 OCNITNUE 

DISSIP - -DISSIP/ (2. *VISC*TINC*SQKr (TIME) ) 

C Energy by Gauss Quadrature 

ENERG - 0. 

DO 220 I - l,NOX 
ENERGL - 0. 

DO 230 J - l.NCOL 

ENERG1 - ENERG1 + (UR(I, J) *UR(I, J)+UTH (I, J)*UTH (I, J) ) 
> *WTTH ( J) /WFth 

230 CONTINUE 

ENERG - ENERG + ENERG1*F2JAC (I) 

220 CONTINUE 

ENERGY - ENERG*PI*SQRX(TTME) 

WRITE (LGIOBAL) TIME, CIRC , RADpp, RVELrp 
WRITE (LGLCBAL) ENERGY , DISSIP, RIMFMP , RIMPGQ, DIMP 
jGICBAL - 1 
EM) IF 


C Go FROM real space TO wave spaoe 
c 

C Ccnpute this part of the oode in the first pass only. 
IF (llCCP.EQ.l) THEN 

DO 74 LI-1, IMW 
RL - REALCLI) 

CCEF (LI) -- (2.*RLtl.) / (2.*RL* (RLt-l. > ) 

DO 75 J - 1,L00L 

P0FUN(LI, J) - PO(U,J)*WTIH(J) 

P1FUN(LI, J) - Pl(U,J)*WnH(J) 

75 CONTINUE 
74 CONTINUE 

DO 76 I-l,NOOL 
RD2(I) - 0.5*P.(I) 

76 CONTINUE 

END IF 


C oonvective term in the Navier Stokes Equations. 

CO 70 LI-1, IMAX 

DO 71 1-1 , NCOL 
SIMLA (I) - 0. 

SUM2A(I) - 0. 

71 CONTINUE 


C Integrate wrt r, for all NIP and LI 

DO 151 NIP-1, tt-AXA (II) 
Pldun(NIP) - 0.0 
P2dun(NIP) - 0.0 
151 CONTINUE 

DO 161 I-l,NCOL 


TEMPI - SIMLA (I) *F2JAC (I) 

TEMP2 - SUM2A(I)*F2JAC(I) 

DO 150 NIP-1, M«XA (II) 

Pldm(NIP) - Pldum(NIP) + TEMPI * GROUP, LI, I) 
P2dun(NIP) - P2dun(NIP) + TE>P2 * GTH(NI?,II,I) 

C end of NIP loop 

150 CONTINUE 

C end of i loco 

161 CONTINUE 


DO 152 NIP-1, M^XA (LI) 

COW (NIP, LI) - CCEF (LI)* (PldumOdP) -P2dm(NIP)> 
152 CONTINUE 

C end of II loop 
70 CONTINUE 


RETURN 

END 

c SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE CUTFUT2 

•CALL PARNE 
•CALL ARRAYS 

WRITE (LCRAY) TIME,ZCcR 

C WRITE (LCRAY) ( (ALP(NI,LI>, NI-l,t^AXA (II) ) , LI-1, IWiX) 

WRITE (LORAY) ((omeg(I,J), I-1,NOOL), J-l,IOCL) 

RETURN 

END 

SUBROUTINE OUTPUT 


integrate wrc theta, for all II •CALL PALMS 

♦CALL ARRAYS 

DO 165 J - 1,LCCL 

WRITE (L7AX,10C2) 

RVTH - FVELPP*STH ( J) WRITE (LVAX, »} TIME, ZCcR 

RVR - R/ELPP’CTH(J) WRITE (LVAX,100C) 
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WRITE (LVAX,*) PCCKSrro,RADppo,TI>Eo 
WRITE (LVAX, 1007) 

WRITE (LVAX,*) VT3C, GAM, CtR 
WRITE (LVAX, 1001) 

WRITE (LVAX,*) 1RJN, iFLOT 
WRITE (LVAX, 1005) 

WRITE (LVAX,*) M^X, MCOL, IMAX, IUOL 

WRITE (LVAX, 1009) 

DO 6 U-l f IMtf 

WRITE (LVAX,*) LI,N4AXA(LI) 

6 CONTINUE 

WRITE (LVAX, 1010) 

DO 10 I-1,NC0L 

WRITE (LVAX,*) I,Xn»<I),WER(I) 

10 CONTINUE 

WRITE (LVAX, 1020) 

DO 20 J-l, LCOL 

WRITE (LVAX,*) J,CIH(J),WITH(J) 

20 CONTINUE 

WRITE (LVAX, 1030) 

DO 30 LI-1, LMAX 

DO 40 NI-1,N'®XA(LI) 

c WRITE (IWRITE,*) U,NI,ALP (NI,LI) 

WRITE (LVAX,*) LI,NI,AIR(NI,LI) 

40 CCNEENUE 

30 CCNTTNUE 


C DIM24SICTE/ OPTIONS : 

c lzero: 0 ; cfa nac plot zero contour level 

_ ’ 1 ; plot zero contour level 

-1 (input contour levels), -2 (automatic) 

IN F (I, J) I “ 1#N00L 
J - 1,LC0L 

marber of contour levels 

number of points in the ccntcur definitions 


NCCPT 

NCCL 

LCOL 

NCONT 

fKDIM 

KmrriTM 


of contours 


C ARRAYS: 

C F{NCD,ICD) 

C XY(NCD,ICD) 

C ACCOT (NCdlm) 

C XCCNT(fKDIM) 

C YCCNT (NXDIM) 

C bPC(NADOIM) 

C NLEV(m»IM) 

C IA(IADIM) 

♦CALL PAFMS 


FUCTTCN TO PLOT CCNICURS 
coordinates of function 
(far NCCNT-1) cootcur levels 
x values of contour lines 
y values of contour lines 

NfiD(l): # contours, pointers to each contour lint 
values of contour levels 
scratch array 


PAiVhETER(NCdiirr-25 ,NXDIM-2000 , NATOIM-10G ,IADIM-3000) 
DIMETSICN XY(tKE ( I£D,2),F0ra,ia3),SFllJG(KE,IXD),C^(N^,a3) 
DH-ENSICN ACCNO. (NCdin) ,ACCNT2 (NCdim) ,A0CNr3 (NCdim) , ACCNT4 


DIMENSION blankc (NXDIM) 
LOGICAL LABELS 


DIMENSION CTH(ICD) ,R(NGD) 
REAL LEFT 


10C2 FORMAT ( 5X, * TIME * , 12X, 1 ZCoR' ) 

10C0 FOR-AT (12X, 'RCCNST' ,1CK, 'RACcco' ) 

1001 FCR^VT (4X, '1HJN',4X, 'iPLOT' ) 1T _ T1 > 

10C5 FOR»AT (9X, 'Nt'ftX , ,8X, 'NCCL',8X, 'I>AX',8X, LCCL ) 
10C7 FORMAT ( 5X, 'VISC' , 12X, 'GAM 1 , 5X, 'CtR' ) 

1CC9 FCRhAT (5X, 'LENDEX* ,1CX, 'M’AXA(L) ' ) 

1010 FCR-AT ( 1GX, ’I* ,7X, *XI (I) * , 10X, 'WIR(I) ’ ) 

1020 FORMAT ( 10X, 1 J 1 ,7 X, *CTH(J) 1 ,1GX, 'WlTH(J) ) 

1030 FOFMAT ( 9X, 'LI 1 , 10X, 'NT* ,7X, 'AIR (NT, LI) ' ) 


LABELS - .FALSE. 

C lntl 11 ze disspla 

IF { j2PIOT.LE. .5)THEN 
CALL DIP (15) 
j2PICT - 1. 

EN3 IF 

CALL PAGE (8. 5, 11.) 
CALL WSCALC SCREEN' ) 


RETURN 

EN3 

c S SSSSSSSSSSSSSSSSS SSSSSSSSSSSS S SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE stream? 


♦CALL FARMS 
♦CALL ARRAYS 


c corpute the stream function in a reference frame translating with the 
c velocity of t he Saffinan centroid. 

DO 10 I-1,NCQL 
DO 20 J“1,ICQL 
20 SA(J) “ 0. 

DO 30 LI-1, IMAX 
. RL - REAL (LI) 

SIEMP - 0. 

DO 40 NT-1, ft-AXA (LI) 

40 STEMP - SIEMP + GR(NI,LI,I>*ALP(NI,LI) 

STEMP - STEMP*R(I)/ (RL* (RL+l.H 

DO 50 J - l,ICOL 

50 SA(J) - SA( J) + SUMP* Pi (LI, J) 

30 CONTINUE 

c* rcmite the Saf5ran ring speed 

c ' Ud - gam* (AIOG(4.*2.24182/CtR) - 0.558)/(4.*pi*RADcpo) 

Uo - R/ELPP 
DO 60 J - 1,LC0L 

SFUNC(I,J) — (SA(J)*STH(J)*R(I) *.5*Uo*R(I) 

60 CCNITMIE 

10 CCNTTNUE 


•2*STH(J)**2) 


RETURN 

END 


sssssssssssssssssssssssssssssssssssssssssss 


SUBROUTINE PLTCONT(NCD,ICD,CMEG,<-*R,R,XY, SFUNC,r ) 


C set (iiaracter type and size 
CALL SQ4PIX 

CALL MXIALFCL/CSID ',')') 

CALL MC2ALF ( 1 STANDARD ' , ' {') 

CALL MX3ALF ('L/OGREEK' , '%' ) 

CALL MC4ALF ('GCEEK', ' ! ') 

CALL MX5ALF ('INSTRU' , ’ V) 

CALL MX6ALF ('tMH 1 , 1 * 1 ) 

CALL HEIGHT (0.12) 

c label axis with integer numbers 
CALL INEAXS 

c do not plot outside of subplot area 
CALL GRACE (0) 

c connect points with a polynomial fit 
CALL PGLY3 

c dxi't check for points which are cut o. range 
CALL N0CHEX 

C two 

C lower plot, page 1 - expanding coordinates 
c PLot of w‘t , '‘2 in self similar coordinates 
CALL PHYSOR(1.25,7.75) 

CALL AR£A2D(6.25,2.5) 

CALL MESSAGC RUN (#) S', 100,5. 2, 2. 75) 

CALL INTNOORUN, 'ABUT', 'ABUT') 

CALL RESSAGC FRAME (♦) S' , 100, 5.2, 2.55) 

CALL INTNOUFIOT, 'ABUT , ' AEUT' ) 

CALL ENXTR(O) 

DO 10 I-1,NOOL 
DO 20 J-l, LCOL 

sth - sacra. - cih < J) *cth t j) ) 

XY (I, J, 1) “ R(I) *CTH (J) 

XY (I, J, 2) - R(I) *SHi 
F(I,J) - OEG(I, J)*TIME 
20 CONTINUE 
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10 ccntinue 

ncopt - 1 
NXNT2 - 20 
izero “ 0 

CALL PHYSCR(1.5, 2.25) 

LEFT - -5. 

RIGHT - 5. 

BOT - 0. 

TCP - 5. 

SCALE - 6./ (RIGHT-LEFT) 

XDIST - RIGHT-LEFT 

CALL AREA2D (SCALE* (RIGHT-LEFT) , SCALE* (TOP-BCT) ) 


CALL XFEVTK 
CALL YREVIK 

CALL XfmfiCX/(R)\LH.6)O\LXHXSM00) 

CALL YNWE ( 'Y/ (R) \LH.6)0\IXHXS' , 100) 

CALL GRAF (PLEFT, 1., PRICHT, PBOT, 1. , ETDP) 

NCOPT a 1 

CALL CCND0C(NCD, 103, 1»NCQL,1»I£0L,XY,F, NCCPT, NCDIM,N0CNn, 

1 ftCCNTl,NXDIM,XCCNr,XCCNr(l,2) ,NADDIM,NAD,NL£V, 

2 IADIM, LA, FMIN1,E>AX1, izero) 

CALL CODI2(l,2,WBELS,NXDIM,NAIX>IM,NCDIM,NCCNn,XCCNr,3AD,NLEV, 

1 kcnti, blank:) 

CALL DASH 

CALL RUTC (PLEFT, Q.,PRXGHT,0.,0) 

CALL FESET('DASH’) 


CALL XNPME(*X/(()%N)t(>) \EH.5) 1/2\£XHX) $’ ,100) 
CALL YN?M£('Y/( ()%N) t () ) \EH.S) 1/2\£XHX)$’ ,100) 

CALL XREVTK 
ran. YREVTK 

CALL GRAF (LEFT, l.,RIGHT,BOT,l., TCP) 


DO 50 I - 1, NAD (NAD (1) +1)— 1 
XCCNT(I,2) - -XCCNT(I,2) 

50 CONTINUE 

CALL CCM3I2 (l,2,MBEIS,b^IM,3PJX)I>LNCDIM,fCCKrl,XCCNT,N 1 iD,NLEV, 
1 ACCNT1,ELANNC) 


CALL CCND0C (NCD , 1X3) , 1 , NOQL, 1 , ICOL, XY, F, NCCPT, NC^JT2 , 

1 /¥CCNT2,NXDIM,XCCNT,XOCNr (1,2) ,JM5DIM, NAD,NI£V, 

2 IADIM,IA,FMIN2,FMAX2, izero) 

CALL CCtDl2(l,2,IABEIS,NXDIM,NADDIM,NCDIM f N0CNr2,X0CNr,NAD,N[ZV, 

1 ACCNT2,BLANKC) 

CALL RESET ('XREVTK') 

CALL RESET ('YPEVTK') 

CALL XNCNM 

CALL YNCNUM . , „ 

CALL XGRAXS (LEFT, 1., RIGHT, SCALE* (RIGHT-LEFT), ,1,0., 

1 XDIST*.5*SCA1E) 

CALL YGRAXS(0CT,1., TOP, SCALE* (T0P-ECT) , * *,1,XDIST*SCA1£,0. ) 


CALL XNCNLM 
CALL YNEtAM 
CALL RESET (‘XREVTK’) 

CALL RESET CYREVTK’) , , , n 

CALL XGRAXS (PLEFT, 1..PRIGHT, PSCALE* (PRIGHT-PLEFT) , ,1,0., 

1 PXDIST*. 5*PSCAI£) 

CALL YGRAXS (P9OT, 1. , PTCP, PSCALE* (FTC^-PBOT) , ’ 

1,PXDIST*PSCAL£,Q.) 

CALL THKFWK.02) 

CALL FRAME 
CALL ENDGR(O) 


CALL IHKFFM(.02) 
CALL FRAME 
CALL ENDGR(O) 


CALL ENDPL(-l) 

CALL RESET (’XNCNUM'} 
CALL RESET (' YNCNCM’) 


CALL REST ( 1 XNCNUM' ) 
am RESET (' YNCNCM' ) 


C ere 

C Second plot — physic a l coordinates 

XYSC - SORT (TIlE/nMEo) 

DO IS I-1,N33L 
DO 25 J-l,IOX 

STH - SOFT (1. - CIH(J)*cm(J)) 

XY (I, J,l) “ (R(I)*CTH(J)*XYSC)/BADppo + ZCoR 
XY (I, J, 2) - R(I) *STH*XYSC/RALppo 
F(I,J) - OE3(I,J)*TINEo**2mME 
25 CCNTINUE 
15 CCNTINUE 

izero “ 0 
NCCNT1 - 20 
IF (jPLCT.EQ.O) THEN 
NCOPT - 1 
ELSE 

NCCPT - 2 

cm FRANGE(NCD,LCD,1,NCCIL,1,IGDL, F,FMINl,FMVXl) 

END IF 

C "p" is used here to mean '’physical" space. 

CALL PHYSCR (1.5, 6.75) 

C Scale the plot so that the ring is inside the box. 

IF (jPLCT.EQ.O) PXDIST - 8. 

IF (ZCoR.CT.PXDIST-1) PXDIST - PXDIST*2. 

IF (RADPP/RADPPO+ . 5 .GT. PXDIST/ 4 . ) PXDIST - PXDIST*2. 

PLEFT - -1. 

FRIGHT - PIEFT+PXDIST 
P9CT - -PXDIST/4. 

FTOP - PXDIST/4. 

PSCALE - 6. /PXDIST 

CALL AREA2D (PSCALE* (PETE GHT-P LEFT) , PSCALE* (PTCP-PBCT) ) 


C four 

c plot strean function in coordinate system translating nng speea. 
C First plot, second pacp - expanding coordinates 
CALL PHYSOR(1.25,7 .75) 

CALL AREA2D (6.25,2.5) 

GULL LINEAR 

CALL MESS\G<’ RUN (f) S’, 100, 5.2,2.75) 

CALL ININ0(iFlN, ’ABUT 1 , ’ABUT’) 


CALL RESS>iG('FR»E (#} $’,100,5.2,2.55) 
CALL ININ0 (iPICT, 'ABUT' , 'AEOT' ) 

CALL ENXIR(O) 


43 

44 


DO 44 I-1,NCCL 
DO 43 J-l,ICOL 

STH - 9CFT(1. - CTH(J)*CTH(J) ) 
XY (I, J,l) - R(I)*crH(J) 

XY (I, J,2) - R(I)*SIH 
F (I, J) - STLNC (I, J) *TThEAOEo 
CCNTINUE 
CCNTINUE 
ICCL2 - ICCL 


! pilot the concurs of ?si 


C Find appropriate intervals 

c the V of positive contours (inside the ring) : NPCCNT 
IPCCNT - 7 

CALL FRANGE(NCD,ICD,I,NOOL,l,ICCL,F,FMIN4,FRAX4) 
ftsro - sart(FFAX4) 

CALL CCNSCL(0., ftenp,NCDIM,NPCCNr,ACCNr4,l) 


DCa,T- (ACa.T4(2)-ACCNT4(l))»'2 

NCCNT4 - 3-FCCNT ! total niawer of contours 

DO 60 I - 1, 2*NPCCNT ! ne<^tive ocr.tcur severs 

«XNT4(I) - -DCCNT* (1-2‘NPCCfT) ''•2 

CCNnNUE , 

DO 61 I - 1, NPCCNT ! positive contour severs 

ACCNT4 (1+2‘NPCONT) - D0CNT*I**2 
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61 CONTINUE 
izero - 1 
NCOPT - 2 


2 IADIM, IA, FMIN3, FMRX3, izero) 

r piQt zer o contour level CALL CO^I2 (l, 2 ,IABE 12 ,frai>%t^IM,^IM,tmra,XCa^,fRD,^/, 

j contour levels are input 1 KXNT3, BIANKC) 


call PHYSOR (1.5,2. 25) 
LEFT - -5. 

RIGHT - 5. 

BOT « 0. 

TCP - 5. 

SCALE - 6./ (RIGHT-LEFT) 
XDIST - RIGHT-LEFT 


CALL DASH 

CALL RLS/EC (PIEFT, 0. ,PRIGHr,0., 0) 
CALL FESET('DASH*) 

Ccc scales plot to fill plotting region 
DO 75 I - 1, NAD(NAD(1)+1)-1 
XCCNT(I,2) - -XOCNT(I,2) 

75 CCNTIMJE 


CALL AFEA2D (SCAIZ* (RIGHT-LEFT) , SCALE* (TOP-BOT) ) 
CALL XREVTK 
CALL YREVTK 

CALL XNPME('X/(()%N)tO) \EH.5)1/2\EXHX)$* ,100) 
CALL T3WE('Y/(()W)t()) \EH.5)1/2\EXHX> $’ , 100) 
CALL GRAF (LEFT, 1., RIGHT, BOT, 1., TCP) 


CALL 

1 

2 

CALL 


1 


CCNDOC (NCD,LCD, l,NCOL, l,DOOL2,xy,F,NCOPT,Na)IM,NCCNr4, 
ACCNT4, NXDIM,XCCNr, XOCNT (1, 2) ,NADDIM, NAD, NIEV, 

IADIM, IA, FHLN4 , EMAX4, izero) 

CCNDI 2 (1, 2, LABELS, NXDIM, NADDIM, NCDIM,NCCNr4 , XCOTT, FM, NLEV, 
ACGNT4,BIANNC) 


CALL RESET ('XREVTK') 
CALL RESET ('WEVTK‘) 


CALL XNCNLM 
CALL TNCNLM 

CALL XGRAXS (LEFT, 1., RIQTT, SCALE* (RIGHT-LEFT) , 1 M,0., 

1 XDIST*. 5*SCALE) 

CALL TGRAXS (BOT, 1 . , TOP, 9CAIE* (TOP-BOT) , ' M,XDIST*9CALE,0.) 
CALL THFFpM(.02) 

CALL FRAM1 
CALL ENDGR(O) 


CALL CCNDI2 (l,2,IABELS,NXDIM,NAEDIM,NCDIM,lCCNl3,XCCNr,NAD,NLEV, 

l «xnt3, blank:) 


CALL XNCNIM 
CALL YNCNLM 
CALL RESET (’XREVTK*) 

CALL RESET CTREVTK*) 

CALL XGRAXS (PIEFT, 1 . , PRIGHT, PSCALE* (F’RIGHT-PIEFT ) , * ',1,0., 
1 PXDIST*.5*P9CAIE) 

CALL TGRAXS (PBOT, 1 . , PTOP, PSCALE* (PTDP-PBOT) , ‘ ', 
x 1,PXDIST*P9CALE,0.) 

CALL THKFFM(.02) 

CALL FRAME 
CALL ETCGR(O) 

CALL ENDPL(-2) 

CALL RESET CXNCNEM’) 

CALL RESET ('TNCNLM*) 


C write quantitive information on next pac^ 
RED - RVEIPP*RADpp*2. 
rei - i./s2Rrcn>E) 

U32 - RVEIPP*TIME 


CALL RESET CXNCMM 1 ) 
CALL RESET ('TNCNLM* ) 


C 

cC three 

cc second plot, second pac^ 


26 


XTSC - 30 RT(TIME/TI>Eo) 

03 16 I«i,NCDL 

XT (1, 1,1) - (R(I)*XT3T)/RADppo + ZCoR 
XT (1,1, 2) - 0. 

F (1,1) - 0. 

DO 26 J-l,I£OL 

Sm - SORT (1. - CTH(J) *CTH(J) ) 

XT(I, J+1,1) " (R(I)*CTH(J)*XTSC)/RADppo + 
XT(I, J+1,2) “ R(I)*sm*XTSC/RADFpo 
F (I,Jfl) - SFLtC(I,J)*SQKTCn>E/TTMEo) 
CCWIXMJE 

XT (I, ICOLt-2,1) - (-R(I) *XT 3 C) /RACppo + ZCoR 
XT (I, LCOLrt-2, 2) - 0.0 . 

F(I,DCCL+2) “ 0. 

OCNTINUE 


ZCoR 


CALL PHT3CR (1.5, 6.75) 


CALL PHTSORd.25,7.75) 

CALL AREA2D (6.25,2.5) 

CALL HEIGHT (.12) 

CALL MESSAG(’\P) (I)NPUTS:\U)$*,100,Q.,2.25) 


CALL CMP EX 
CALL HEIGHT(.ll) 

CALL MESSAGC RUN (#) $*,100,5.2,2.75) 

CALL LNIN3(iREN, ‘ABUT*, 'ABUT') 

CALL RESSPGC FRAME (#) $*, 100,5.2,2.5) 

CALL ININOOPICT, 'ABUT', 'ABUT') 

CALL MESSAGCTL-E STEP (#) $*, ICO, 5. 2,2. 25) 
CALL INTNO (ilOCP, 'ABUT* , ’ABUT* ) 

CALL MESSAGC !G)/%N) -$*,100,0.9,2.25) 
CALL REAINO (GAM, 1,' ABUT', *AHJr*) 

CALL MESSAGC a/ (R) - S', 100,0,9, 2.0) 

CALL R£ALNO(CtR,2, ' ABUT’ , ’ABET * ) 


CALL AREA2D (P9CAIE* (PRIOET-PLEFT) , PSCAIE* (PTCP-PBCT) ) 
CALL XREVTK 
CALL TREVTK 

CALL XNM‘E('X/(R)\IH.6)OMJ<HXS',100) 

CALL TNAMECT/(R)\LH.6)0\IXHXS',100) 

CALL GRAF (PLEFT, 1. , PRIGHT, PBOT, l., PTOP) 

NDDPT - 2 
icaL2 - lcol+2 

C FOR NSW, LET OX) 4 
NCCNT3 - NCCNT4 
DO 62 I - 1,NXNT3 
ACCNT3(I) - ACO-.T4(I) 

62 CONTINUE 


CALL CCNIXX (NED, ICD, 1, NCOL, 1, ICCL2,XY, F, NSCPT, NCDIM, I'CCNIU, 
i ACCNT3, NXDEM.XaXET, XOONT <1, 2! , NN3DIM, NAD, NTEV, 


CALL MESSAGC \!D)\Pl) (t)\P2)\Gl)\El. 15) *P)\EX)\G2) - S', 

1 100,0.9,1.75) 

CALL REAINO (TINC, 6, 'AHJT* , ' ABUT* ) 

CALL MESSAG('\P1 )T \E1.2V1) \IH.7)o \EXHX ) - $*,100,2.4,2.25) 
CALL REAINO (TTMEo, -6, 'ABUT', 'ABUT') 

CALL ININO (ff'AX, 2.4,2.0) 

CALL MESSAGC X $*, 100, 'ABUT* , 'ABET* > 

CALL INTNO (IMRX, 'ABUT', ‘ABUT') 

CALL MESSAGC HUES $', ICQ, 'AR/T* , 'ABUT* ) 

CALL EICGR(O) 

CALL PHTSOR(1.25,7.25) 

CALL AREA2D (6.25,2.5) 

CALL HEIGHT(.12) 

CALL MESSAG('\P) (C)URRENT (I)NFO!*ftTICN:\U)S* , iCO, 0. , i. 52) 
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CALL HEIGHT (.11) 

C oolum 1: 

CALL MESSM('\P1 )T \El.3Vl) \EXHX) - $',100,0., 1.0) 
CALL REALM) (TIME, -6, 'AH7T' , ’ABUT’ ) 

CALL J-ESSAGC (R)eYLH.6(D\EXHX) - S',100,0., .75) 

CALL REAIM) (RED, 1, 'ABUT* , 'ABUT) 


C ^ StES^('\Pl)W\El-2)\Vl)\Sl)\E3CVX)\P3)'lM>4>\E1.2)\V3) 

1 \EXVX)\G4)\EH.7)2\E»K) $',100,1.75,4.5) 

^.rr AFXHX) $’100,1.75,4.5) 


CALL HEIGHT (0.1) 

CALL ftSSVGCMAX - $’,100,1.75,4.1) 
CALL R£AIM)(FMAX2,-3, 'ABUT', 'ABUT' ) 
CALL MESSVGCMDJ - $’,100,1.75,3.9) 
CALL REAIND(FMIN2,-3, 'ABUT', ’AEUT’) 


CALL MESSAGC (R)e\IH.6(lA%R\EXHX) “ $',100,0., .5) 

CALL REAINO(REI,l, 'ABUT', ’ABUT’) 

CALL MESSAG ( ”.G) /%N) -$’ ,100,0. , .25) 

CALL REALM) (CIRC, 1, ’ABUT', 'ABJT' ) 

C colum 2: 

CALL MESSAG ( 

l‘\Pl) (U)\El.2VD\EXHX)\P2)T\E1.3V2)\EXHX)\EH.7)3/2\EXHX) - $ , 

2 100 , 2 . 0 , 1 . 0 ) 

CALL REALM) (U32,-3, 'AEUT' , 'AEUT' ) 


CALL MESSAG(’X\LH.6)C\IXHX(/R)\IH.6)0\LXHX) - S’, 

1 100,2.0, .75) 

CALL REALM) (ZCoR,— 4, 'A 3 JT' , ’ ABUT' ) 


31 


CALL MSEAGC contour levels?', 100, 1.75,3. 6) 
CALL SIMPIX 
CALL HEIGHT (0.08) 

DO 31 I - 1,NCCNT2 
* IF (ACCNT2 (I) .EQ.O. ) OJIO 31 

CALL REALM) (ACCNT2 (I) ,5,1.95, 3.4-0.11* (I-l>) 
CONTINUE 

CALL RESET (’HEIGHT*) 

CALL SCWIX 


C thrB CA^MESSAG ( ' NPl) ! Y\£l . 2) \V1 ) \SL) \EXVX) \P3) TNP4) V ' 5 ^2) W3) .. 

1 \EXVX)\G4)\m.7)o\IXHX)\Bl)\EH.7)-l/2\EXHX) $ ,100,3.5,4.5) 

c CALL t<ESS?G('!Y\Sl) , r\LH.7)o\IXKX)\Bl)\EH.7)-l/2\EXHX) 

c 1 ,100,3.5,4.5) 


CALL RESSAG ( 

X • \Pl) X\P2) \Gl ) \E1 . 0) *P ) \EX) \G2) MH. 6) C (GQ) VLXHX) - $ , 

2 100 , 2 . 0 ,. 5 ) 

CALL REAIM) (DCENT, -4 ,' ABUT ’,* ABUT ’ ) 

CALL MESSAGC \P1) (R)\P2)\Gl) \E1. 05) *P)\£X)\G2) =■ $' ,100, 2.0, .25) 
CALL REALM) (RADcp, 4, ’A3JT’, ’AEUT’ ) 

C oolumn 3: 

CALL MSSAGC (IA%R MH.6 (GQ \EXHX) -$’,100,4.2,1.0) 

CALL REALM) (RJ>PGQ,-€, 1 ABUT' , 'ABUT' ) 

CALL r-ESSAG(’\Sl) (IA%R \EXHX) $’, 100, 'AELT' , ’ABUT’ ) 


CALL HEIGHT (0.1) 

CALL f-ESSAGCNAX - $*,100,3.5,4.1) 

CALL REALM) (E>AX3,-3, ’AEUT’, ’ABUT’) 

CALL MESSA3CMLN - $’,100,3.5,3.9) 

CALL REAIM) (EMLN3, _ 3, ’ABUT’, 'ABUT' ) 

CALL FESS?G(’ contour levels$',100,3.5, 3.6) 
CALL SIM 1 IX 
CALL HEIGHT (0.08) 

DO 32 I - 1,NCCNT3 

CALL REAIM) (ACCNT3 (I) , 5,3.7,3.4-0.11* (1-1) ) 
32 CONTINUE 

CALL RESET (‘HEIGHT’) 

CALL SC4PIX 


$’,100,4.2,-75) 


CALL MESSAGC (IA%R \LH.6 (MP \EXHX) 

CALL REALM)(RIMM , ,-6, ’AEUT’ , ’ABUT' ) 

CALL MSSAGC \S1) (IA%R\EXHX> $' ,100, ’ABUT’ , 'ABUT' ) 


CALL MSSAGC 3/2 *: (U)d(v) - $' ,100,4.2, .5) 
CALL REALM) (FM)M, 4, ’AEUT’, 'AEUT' ) 


C £OT <^®SM(-\Pl)!ril.2)\Vl)\a)\£XVXI\P2)M4l\a 2IW) 

1 \EXVX) \G4) \EH. 7) 1/2XEXHX) Ap3) t\El . 2) \V3) \EXVX) Mri . 7) oMXhX) $ 

2 100 = 25 4 5) 

c cALLM^(’’!YN31)AEH.7)l/2\EXHX)\Sl)/T\IH.7)o\I)OX) $’, 


CALL EMX5I(0) 

C WRITE OUT NUMERICAL INFCR-fiUCN 
CALL PHYSOR(1.25, 2.00) 

CALL AREA2D(5.75, 4.75) 

CALL RESET ('HEIGHT’) 

CALL SOFLX 

C ere INFO 

CALL MSSSft3('\Pl) %W\E1.2)\V1)\S1)\HXVX) \P3)T\P4)\E1.2)\V3) 
1 \EXVX)\G4)\IH.7)o\IXHX)\Bl)\EH.7)2\EXHX) $’,100,0.0,4.5) 

c CALL I*ESSAGC %W\ SI) T\LH. 7) o\IXHX )\B1)\EH. 7) 2\EXHX) S' 

c 1 ,100,0.0,4.5) 

CALL HEIGHT (0.1) 

CALL MESSAGCMAX - $’,100,0.0,4.1) 

CALL REALM) (FMOCL , -3, 1 AB/T‘ , ’AEUT’) 

CALL M)SSA3 ('MIN - $’,100,0.0,3.9) 

CALL REALNO (FMIN1, -3, ’ABUT’ , ’AEUT' ) 


CALL HEIGHT (0.1) 

CALL MSSSV3('MAX - $’,100,5.25,4.1) 

CALL REAIM)(EM«4,-3, ‘ABUT’, ’AEUT' ) 

CALL NESSAGCMIN - $’,100,5.25,3.9) 

CALL REALM) (FMIN4 , -3, ’ABUT’, ’AMC ] 

CALL JESSV3C contour levels? ' ,100,5.25,3.6) 
CALL SIKPIX 
CALL HEIGHT (0.08) 

DO 33 I - 1,NCCNT4 

CALL REALM)(ACCNT4 (I) ,5,5.45, 3.4-0.11* (I 1)> 
33 CONTINUE 

CALL RESET (‘HEIGHT’) 

CALL SCMPLX 

CALL ENDPU-3) 


RETURN 

END 



CALL MESSG ( ’ ccntour levels$’ ,100,0.0,3.6) 
CALL SIMPLX 
CALL HEIGHT (0.C8) 

DO 30 I - LNOCNIl 

IF (ACCNTl(I).EQ.O.) GOTO 30 
CALL REALM) CPGCNT1 (I) , 5,0.2, 3.4-0.11* (I - D ) 
30 CONTIMJE 

CALL RESET ('HEIGHT’} 

CALL 90PLX 


SUBROUTINE CONIXX (SIM, UDIM, IS, IE, US, GE,XY, F, NCOPT,NO)IM, NLCi T, 
C ACCNT, )0CIM,XCCNr, TCCNT, JAEDIM, (AD, NLEV, IADIM, LA, 

C FMIN,r>AX, itero) 


GOT THIS AM) THE FOLLOWING 3 SUBROUTINES FKK PIETER G. EUNIM 
(MUSA AMS RESERACH CENTER) 
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c 

c 

c 

C Calculate contour lines for the function F in the region IS to IE, JS to 
C JE. X, Y coordinates corresponding to the grid points are in array XY. 

C If NCOPT-1, figure our own contour levels, up to NOCNT of them, using 
C ••nice" numbers. FRANCE finds the function range in the given region, an 
C CCNSCL oorputes the contour levels. Note that NOCNT will be revised 
C downward to correspond to the n ember of contour levels actually used. 

C The contour levels calculated are returned in the array ACCNT. 

C 

C If NCOPT-2, calculate lines for the NCCNT ccntour levels specified in 
C ACCNT. 

C 

C The contour lines are returned in arrays XCCNT, and YCCNT. MAD(l) 

C gives the number of contour lines, and MAD(n) points to the start of the 
C nth line (i.e. NAD(n+l) points to one past the end of the nth line). 

C NLEV(n) returns the contour level of the nth ccntour line. 

C 

C IA is a scratch array. Try a dimension of 3000. 

C 

DIMENSICN XY (IDIM, JDIM, 2 ) , F (IDIM, JDIM) 

DIMENSION ACCNT (NCdira) 

DIMENSION XCCNT (NXDIM) , YCCNT (NXDIM) 

DIMENSION NAD(NAEDIM) ,NLEV (NADDIM) , IA(IADIM) 

C If MCCPT-1, figure our own contour levels, up to NCCNT of them, using 
C "nice" nuibers. FRANCE finds the function range in the given region, an 
C CC NSCL computes the contour levels. Note that NCCNT will be revised 
C downward to corre spond to the number of contour levels act ually used. 

C 

C IF (NC0PT.EQ.1) THEN 

CALL FRANCE (IDIM, JDIM, IS, IE, JS,X,F,FMIN,FMAX} 

IF (NC0PT.EQ.1) THEN 

CALL CCNSCL (FMEN,FhRX,NCDIM, NCCNT, ACCNT, izero) 

END IF 

C *** 

DO 2222 I-1,IADIM 
2222 IA(I)=0 
C *** 

IW-3 

C 

NAD(l)” 1 
NLINEP- 2 
C 

C One little check. If IS-IE or JS-OE, return with no contour lines. 

C 

IF (IS.EQ.IE .CR. JS.EQ.JE) GOTO 110 
C 

C Incp through each contour level. 

C 

DO 100 ICCNT- 1, NCCNT 
ZA- ACCNT (ICCNT) 

M-0 

C **** SCAN POINTS AND DETER-HNE POINTS CF IA 
DO 600 > J5+1, JE-1 
IMB-0 

DO 600 I- IS, IE 

IF(F(I, J) .LE.ZA) GO TO 601 

IF (IMB.NE.l) 00 TO 600 

M-M+l 

IF (M. GT. IADIM) GO TO 210 

IA (M) “1000* 1+ J 

IMB-0 

00 TO 600 
601 IMB-1 
6 CO OONTINUE 

C«*** SEARCH START POINT CN BCCNDARY LINE 
101 IMA-1 
IMB-0 

ixa- is— i 

IYA- JS 

1 DCA-IXA+1 

IF (IXA.EQ.IE) IMA-2 
O0 TO 5 

2 IYA-IYA+1 
IF (IYA.EQ.SE) IMA-3 
GO TO 5 
IXA-IXA— 1 


IF (IXA.BQ.IS) IMA-4 
GO TO 5 

4 IYA-IYA-1 
IF(IYA.EQ.JS) IMA-5 

5 IF(F<rXA,IYA).GT.ZA) GO TO 7 
IMB-1 

6 GO TO (1,2,3,4,91), IMA 

7 IF (IMB.NE.l) GO TO 6 

C**** DETERMINE START POINT 

IMB-0 
rx-rxA 
IY-IYA 
S-F (IXA, IYA) 

GO TO (21, 11, 12, 13, 51), IMA 

11 IF(IY.NE.JS) GO TO 31 

GO TO 21 

12 IF (IX. ME. IE) GO TO 41 

GO TO 31 

13 IF(IY.NE.JE) GO TO 51 

GO TO 41 

10 IX-IA(N) /1000 

IY-IA (N) -1000*IX 
S-F (IX, IY) 

IA(N)-0 
GO TO 21 

C**** P ROCESS TO SEARCH PICT POINT 

20 IY-IY+1 

21 IX-IX-1 

IF (IX. IT. IS) GO TO 90 

1-1 

IF (F (IX, IY). LE.ZA) GO TO 52 
S-FdX,IY) 

GO TO 31 

30 IX-IX-l 

31 IY-IY-1 

IF(IY.IT.JS) GO TO 90 
1-2 

IF (F (EX, IY). LE.ZA) GO TO 60 
S=>F (IX, IY) 

GO TO 41 

40 IY-IY-1 

41 IX-IX+1 

IF (IX. GT. IE) GO TO 90 
1-3 

IF (F (IX, IY) .LE.ZA) GO TO 60 
S-F (IX, IY) 

GO TO 51 

50 IX-IX+1 

51 IY-IY+1 
1-4 

IF (IY.GT. JE) 00 TO 90 
IF (F(IX,IY). LE.ZA) GO TO 60 
S-F (IX, IY) 

GO TO 21 

52 IFCM.BQ.0) GO TO 60 
IK-IOOO'IX+IY+IOOO 

DO 602 J-1,M 
IF (1A(J) .NE.IK) GO TO 602 
IA(J)-0 
602 OCNITNCE 

CAICUIATE PICT POENT 

60 XYF- (ZA-F (IX, IY) ) / (S-F (IX, IY) ) 

GO TO (61, 62, 63, 64), I 

61 WXX- XY (IX, IY, 1) +XYF* (XY (IX+1, IY, 1)-XY (IX,IY, 1) ) 
WYY- XY (IX, IY, 2) +XYF* (XY (IX+1, IY, 2)-XY (IX, IY, 2) ) 
GO TO 65 

62 WXX- XY (IX, IY, 1) +XYF* (XY (EX,IY+1, 1)-XY (IX, IY, 1) ) 
WYY- XY (IX, IY, 2) +XYF' (XY (IX, XY+1, 2) -XY (IX,IY,2) ) 
GO TO 65 

63 WXX- XY (IX, IY, 1) +XYF’ (XY (EX-1, IY, D-XY (IX, IY, 1) ) 
WYY- XY (IX , I Y, 2 ) +XYF* (XY ( IX-1 , IY, 2 ) -XY (IX, IY, 2 ) ) 
GO TO 65 

64 WXX- XY (IX, IY, D+XYF* (XY (IX, EY-1, 1)-XY (IX, IY, 1) ) 
WYY- XY(IX,IY,2)+XYF*(XY(IX,rY-l,2)-XY (IX, IY,2) ) 

c*«»* ?i£rr 

65 OCNITNCE 

C***» DECIDE IF PLOT POINT EOiAL INITIAL PICT POINT 
IF (TW.NE.3) GO TO 66 
NP-1 

NAD (NLINEP)- NAD (NLINEP-! } 


3 
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NL£V (NLINEP— 1) - ICCNT 
NPT-0 

XCCNT CNPJ3 (NLINEP) ) - WXX 
YCCNT (NAD (NLINEP) )- WYY 

wx-wxx 

WY-WYY 

IW-2 

GO TO 67 
66 CONTINUE 

NAD (NLINEP)- NN) (NLINEP) +1 

IF (NAD (NLINEP) .CT.NXDIM) GOTO 220 

NP-NP+1 

XCCNT(NAiD (NLINEP))- WXX 
YOCNT(NAD (NLINEP))- WYY 
C IF (NP .IT. 200) GO TO 6602 
C 

C CALL DRAW2D (PT,NP,2,2,0) 

C NPT-NPT+NP 

C NP-1 

C PT (1,1)— WOC 

C PT(2,1)-WYY 

6602 IF (WXX.NE.WX) GO TO 67 

IF (WYY.EQ.WY) GO TO 90 

C***» DETERMINE NEXT PROCESS 
67 GO TO (50, 20, 30, 40), I 

90 IW-3 

NAD (NLINEP)- !©D (NLINEP) +1 
IF (NAD (NLINEP) .CT.NXDIM) GOTO 220 
IF (NP.CT.l) THEN 
NLINEP- NLINEP+1 
IF (NLINEP. CT.NACOIM} GOTO 230 
ENID IF 

C IF (NP .CT. 1) CALL DRAW2D (PT,NP,2,2,0) 

IF (IMA. NE. 5) GO TO 6 
CT*** SEARCH START POINT 

IF (M.EQ.O) GO TO 92 

91 DO 603 N-1,M 

IF(IA(N) .NE.O) GO TO 10 
603 CONTINUE 

92 CONTINUE 

CT'** CAICCTATE VALLE OF NEXT CURVE 
ICO CONTINUE 
C 

110 CONTINUE 

NAD(l)- NLINEP— 2 
RETURN 
C 

C Warning - IA array full. 

C • 

210 CONTINUE 

WRITE (6, 211) IADIM 

211 FCFMRIC Warning - Scratch array IA full in contour routine *, 
C ‘CCNIXX. '/ 

C • Picture may be incorplete. Array was dimensioned ', 

C 15, '.') 

GOTO 101 
C 

C Warning - XCCNT array full. 

C 

220 CONTINUE 

WRITE (6,221) NXDIM 

221 FCFr-ftTC Warning - Contour line array XOCNT full in contour ', 
C ’routine CCNIXX. V 

C ’ Picture may be inocmolete . Array was dimensioned 

C I5,’.') 

GOTO 110 
C 

C Warring - NAD array full. 

C 

23C CONTINUE 

WRITE (6,231) NADDIM 

231 FCFWAT( ‘ Warning - Contour line painter array NAD full in ', 

C * contour routine CONE® . 1 / 

C ' Picture may be inccrrniete. Array was dimensioned *, 

C 15,’.’) 

GOTO 110 
EM) 


SUBROUTINE FRANCE (IDIM, CD IM, IS, IE, JS, JE, F, FMIN, FMAX) 


C Find the range (mlninun and maxinun) of the function F in the regiert IS 
C IE, JS to JE. 

C 

DMNSICN F (IDIM, JDIM) 

C 


EMIN- F (IS, JS) 

FMAX- FMIN 
DO 10 J- JS, JE 
DO 10 I- IS, IE 

FMIN- AMIN1 (FMIN, F (I, J) ) 
FMAX- M-AX1 (FMAX, F (I , J) ) 
10 CONTINUE 

RFTUFN 
EM) 


SUBH0UTHE CCN9CL(W4EN,AMy(,NCDIM, MXNT,AOCNT, izero) 


C 

C Came up with a "nice" scaling of about NOCNT values between AMIN and AM\ 
C NOCNT is updated to the number of intervals actually needed. 

C 


DIMENSION ACCNT (MJdim) 

DIMNSICN RNICE (4) 

DATA RNICE/. 1, .2, .25, .5/ 

DATA MCCE/4/ 

C 

C As a first approximation, get the difference, its characteristic and 
C mantissa. 

C 

DIFF- (AMAX-AMIN) / (NCCNT+ 1 ) 

IF CDIFF.IE.0.) GOTO 20 
CHAR- ALOG10 (DIFF) +1 . 

C 

C Round CHAR down and get the mantissa. 

C 

IF (CHAR. a:. 0.) THEN 
I CHAR- CHAR 
ELSE 

ICHAR- CKAK-1. 

EMOIF 

PMANT- DIFF* 10.** (-ICHAR) 

C 

C What's the next largest "nice" mantissa? 

C 

DO 3 I- ljNNICE 

IF (FMANT.LE.FNICEd)) GOTO 10 
3 CONTINUE 

I- MUCH 
C 

C Got a guess. Cal c ula te a DIET, round AMIN down. 

C 


10 CONTINUE 

AINO RNICE (I) *10.**ICHAR 
IMIN- AM3N/AINC 

IF (AMIN. CT. IMIN* AUC) IMD*- IMIN+1 
BfiX- Af-AX/AINC 

if (amax.it.imax*aim:) im\x- imx-i 

MEED- IMAX+l-IMIN 
C 

C Are we under? 

C 

IF (FNEED.CT.NCCNT) THEN 
C 

C Nope. Try the next nice number. 

C 

IF (I. IT.. ‘NICE) THEN 
I- 1+1 
ELSE 

ICHAR- ICKAR+1 
I- 1 
EM) IF 
GOTO 10 
EMJIF 
C 

C Now }ust set up the ACCfJT array and update NGCNT. (Set up ail (crigi:".i_ 
C NOONT of the ACd.Ts for the folks back hone. ) 

C 

DO 1 I- 1,NC0NT 

ACCNT(I)- (IMIN-1'I) *AOJC 
1 CONTINUE 

N0CNT“ NNEED 



GOTO 30 


C AL1 values are the same — just set up ere oontcur level. 
C 

20 CCNTIRE 

ACCNT(1}“ AMIN 
DO 2 I- 2,NCCNT 
ACCNT(I)- 0. 

2 CONTINUE 

NXNT- 1 
C 

30 CCNimTE 

C Additions made by Sharon Stanaway, Oct. 11, 1987 
if (izero.eq.l) goto 40 

c This was done so that the zero contour is not plotted 
itest - 0. 

cb 100 i - l,noont-l 

if (acont(i).EQ. 0.) itest - 1 
if (itest. EQ.U then 
accnt (i) - accnt (i+1) 
end if 
ICO oontinue 

noent “ noent— 1 


do 110 ic- 2,nd+l 
is- isnext 

c WARNING: This line has been changed far particular needs to the user 
c IF (ACCNT (NLEV (IC-1) ) .EQ.O.JQCTO 110 

c IF(ACCNT(NLEV(IC-1)).LT.0.)CALL DASH 

call curve (xccnt (is, ix) , xcont (is, iy ) , isnext-is, 0) 

CALL RESET ('nASi') 
continue 


110 


200 oontinue 


return 
end 


cccaxxrcrcccccaxccoxccrc^^ 


40 CONTINUE 


RETURN 


CXXX ^^S^ C SSi2(IX, IY, LABELS, NXDIM, NAEDIM, NEDIM, NCCNT, XCCNT, 

mn KTTrrr arvt-jr RTANKT!} 


C 

c 

c 

c 


c 


Draw the contours we just calculated - this . involves: *rne 
hooding. Also, we nay or may not want labe l s on t_.e cent 

lines. 


oShScNxSn: (NXDIM, 2) , nad (NACOIM) , nlev (NADDIM) , ACCNT (NCdim> 
DIMENSION hlankc (NXDIM) 


if (.not.la.hels) goto 100 

c Use DISSPLA's contour utilities so we can get labels, 
nd- nad(l) 

If (ncLeq.O) goto 200 
r*\ 1 boonon (NXDIM) 
cal) corbgn 
isnext- 1 
do 10 ic- l,nd 
is- isnext 
isnext- nad(ict-l) 

call oenexv (xcont (is,ix) , xcont (is, iy) , lsnext-Is, 
c acont (nlev (lc) ) ) 

10 continue 


fal 1 canend 
c 

c Set sane ccntour drawing parameters. 

call aonlin(0, ’SOLID' , ‘LABELS' ,1,1) 
r^1 1 ccmin(2.5) 
r*\ 1 ccrang(40.) 

,-^1 \ height (.08) 

c 

c Now actually draw than. 

call contur ( 1 , 1 LABELS 1 ,* DRAW ‘ ) 

call reset (’ HEIGHT 1 ) 
goto 2CC 

c :b labels cn the aontcur lines - this is easy, 
c 

IX continue 
rd=* nad(l) 

c write (6, 1X0) nd , 

c 1CX format (x, 1 number of contcur lines, nd(l) 
if (ncLeq.O) goto 2X 
Isnext- 1 


, 12 ) 
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